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ABSTRACT 

The  conceptual  phase  of  helicopter  design  requires 
that  many  calculations  and  iterations  be  completed.  Often 
specifications  are  exceeded  in  the  latter  stages  of  the 
design,  requiring  a  complete  rework  of  the  design  to  bring 
these  specifications  within  limits. 

This  thesis  develops  a  program  to  be  used  in  the 
Helicopter  Desicrn  -  AE-4306  course  taught  by  the 
Department  of  Aeronautics  at  the  Naval  Postgraduate 
School,  Monterey,  California  to  alleviate  many  of  the 
tedious  calculations  required  in  conceptual  design 
development.  This  program  provides  the  student  with  the 
ability  to  perform  trade-off  studies  to  enhance  design 
parameters. 
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I.  INTRODUCTION 

A .   BACKGROUND 

Helicopter  Design  -  AE-4306  taught  by  the  Department 
of  Aeronautics  at  the  Naval  Postgraduate  School,  Monterey, 
California  requires  the  student  to  perform  a  conceptual 
design  study  for  a  specific  mission-capable  helicopter. 
In  the  design  process  the  conceptual  study  is  but  one  of 
five  phases  incorporated  into  the  actual  design  of  a 
helicopter.  During  the  conceptual  stage,  configuration 
types  are  compared,  size  and  cost  estimates  are  made, 
feasibility  studies  are  made  and  recommendations  for 
follow-on  work  are  given.  Due  to  course  time 
constraints,  limits  are  established  and  certain 
assumptions  made  to  aid  in  working  within  this  restriction 
[Ref.l  and  Ref.  2].  In  completing  the  conceptual  phase  of 
design  many  steps  must  be  taken,  resulting  in  a  trial  and 
error  approach  which  involves  the  manipulation  of  many 
equations  and  at  times  lengthy  iterations. 
Computerization,  which  eliminates  time  consuming  manual 
calculations,  is  a  solution  to  the  time  constraint 
problem. 


B .   GOALS 

The  major  objective  of  this  project  was  to  develop  a 
program  that  is  interactive  with  the  student,  one  which 
uses  the  same  decision  making  process  as  in  the  Helicopter 
Design  Manual  [Ref.  1],  but  which  greatly  reduces  the  time 
needed  to  make  necessary  calculations.  With  the  current 
availability  of  personal  computers  (PC)  to  students  at  the 
Naval  Postgraduate  School,  the-  program  was  to  be  designed 
to  be  used  on  these  machines,  eliminating  dependence  upon 
the  school's  mainframe  computer. 

This  program  is  to  be  used  by  helicopter  design 
students  to  enhance  their  design  projects  by  allowing  them 
to  be  done  in  a  more  efficient  and  timely  manner.  This 
will  provide  students  with  the  opportunity  to  further 
optimize  their  projects.  The  program  will  also  have  the 
ability  to  be  altered  at  a  later  date  as  helicopter  design 
trends  change. 


II.  APPROACH  TO  THE  PROBLEM 

A  computer  and  a  language  had  to  be  selected  prior  to 
program  design.  The  IBM  PC  style  of  system  was  chosen  due 
to  its  popularity  and  availability.  The  language  selected 
was  BASIC,  chosen  for  its  simplicity,  ease  of  use  with  a 
PC  and  wide  general  public  knowledge  thereof.  This  makes 
future  alterations  of  the  program  a  simple  task. 

The  general  format  of  the  program  needed  to  closely 
follow  Reference  1  to  maintain  continuity  with  design 
course  objectives.  A  menu-driven  approach  provided  ease 
of  program  operation. 

Program  documentation  or  a  user's  guide  was  developed 
to  direct  the  student  in  the  use  of  the  program.  Diverse 
levels  of  computer  knowledge  needed  to  be  considered  in 
the  user's  guide  to  accommodate  possible  first  time 
computer  users. 

The  major  limitation  encountered  was  the  language 
selected.  BASIC  provides  only  64  Kbytes  of  memory  in 
which  the  program,  arrays,  variables  and  space  for  all 
loops  must  reside.  Due  to  the  size  of  this  particular 
program  64  Kbytes  became  very  restrictive,  requiring  some 
alterations. 
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III.  THE  SOLUTION 

An  AT&T  PC  6300,  IBM  compatible  computer,  was  used  to 
develop  the  program.  The  AT&T  version  of  BASIC  [Ref.  3] 
was  the  language  used.  The  menu-driven  format  was 
designed  with  a  developmental  application  software  [Ref. 
4]. 

The  format  of  the  program  emulated  that  of  Reference 
1,  chapter  by  chapter  and  section  by  section.  This  format 
allows  easy  modifications  to  the  program  as  changes  to 
Reference  1  are  made. 

The  size  restriction  of  the  basic  language  forced  the 
breakup  of  the  program  into  eleven  separate  programs. 
This  provided  a  program  for  each  chapter,  with  the 
eleventh  program  acting  as  the  main  program  and 
containing  the  main  menu  (Figure  3.1).  Passage  between 
each  program  was  performed  with  a  BASIC  chain  command, 
which  also  allowed  all  variables  to  be  passed.  Once  the 
size  problem  was  overcome,  the  developmental  software  was 
implemented  to  design  the  menus  used  to  direct  the 
program. 

Each  chapter  program  was  designed  to  closely  follow 
the  format  of  Reference  1  with  one  exception.  In  chapter 
five  the  first  section  of  the  computer  program  is  a  rotor 
blade  optimization  program.   This  program  allows   analysis 
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Figure  3 . 1   Program  Flowchart 


12 


of  up  to  five  different  rotor  blades  to  determine  which  is 
the  most  efficient  for  the  design  being  considered.  This 
analysis  requires  the  blade  airfoil  section  data  (i.e., 
lift  curve  slope,  section  drag  coefficient,  critical  mach 
number,  stall  angle)  which  may  be  obtained  from  the  Theory 
of  Wing  Sections  [Ref.  5], 

An  option  section  was  provided  in  each  chapter  menu  to 
give  the  user  the  ability  to  print  out  the  chapter 
results,  list  the  chapter  results  on  the  screen,  input 
data  if  calculations  were  done  previously,  store  data  on 
the  file  disk  and  return  to  the  main  menu.  All  print- 
outs are  provided  in  the  format  required  by  the  Helicopter 
Design  -  AE--4306  course. 
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IV.  RESULTS 

The  program  covers  all  of  Reference  1  and  provides  all 
necessary  results  required  for  the  Helicopter  Design  -  AE- 
4306  course.  The  program  affords  the  student  the  ability 
to  perform  trade-off  studies  on  his  design  to  optimize 
specification  parameters.  -The  ability  to  observe 
helicopter  performance  changes  with  alterations  in 
variables  such  as  rotor  blade  dimensions,  main  rotor 
rotational  velocity,  number  of  main  rotor  blades,  tail 
length,  tail  rotor  parameters,  etc.,  will  enhance  the 
student's  knowledge  of  the  subject. 

A  sample  design  of  a  heavy  transport  helicopter  is 
provided  in  Appendix  A.  This  contains  results  from  the 
program  as  well  as  results  from  hand  calculations  for  this 
particular  design.  The  results  from  both  methods  are 
identical. 

Appendix  B  contains  the  user's  guide  for  the  program. 
It  was  written  to  provide  assistance  for  users  of  all 
levels  of  PC  knowledge.  This  manual  contains  all 
information  necessary  to  effectively  use  the  program. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

This  program  gives  the  student  the  ability  to  perform 
several  iterations  of  the  design  being  developed.  This 
will  show  the  student  how  parameter  changes  affect  the 
overall  design,  thus  gaining  a  more  in  depth  knowledge  of 
helicopter  performance. 

Incorporation  of  wind  tunnel  work  done  by  Witt  [Ref. 
6]  and  Sargent  [Ref.  7]  with  the  aid  of  calculations 
utilizing  empirical  data  [Ref.  8]  should  be  strongly 
considered.  Due  to  the  great  time  reduction  provided  by 
the  program  in  the  completion  of  Reference  1  requirements, 
wind  tunnel  work  could  be  included  to  obtain  equivalent 
flat  plate  area  data  and  blade  section  characteristics. 

A  plotting  routine  could  also  be  included  with  the 
program.  Chapter  Five  results  would  be  plotted  to  show 
the  induced,  profile,  parasite  and  total  power 
characteristics . 
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APPENDIX  A 

HAND  CALCULATION  AND  PROGRAM  RESULTS 
FOR  THE  HEAVY  TRANSPORT  HELICOPTER 


A.   HAND  CALCULATION  RESULTS 

1.  Chapter  Two  Results 

Rough  estimate  gross  weight  =  33600 

Manufacture's  empty  weight  =  2  2  000 

Maximum  tip  velocity  =  725.9785 

Main  rotor  radius  =  33.94851 

Rotational  velocity  =  21.38469 

Thrust  coefficient  =  .009579 

Advance  ratio  =  .3487248 

Blade  solidity  =  .1028858 

Number  of  main  rotor  blades  =  6 

Main  rotor  chord  =  1.8288 

Main  rotor  aspect  ratio  =  18.56291 

Average  lift  coefficient  =  .54 

Blade  drag  coefficient  =  .009 

Lift  curve  slope  =  5.73 

2 .  Chapter  Three  Results 

Main  rotor  total  power  HOGE     =  3454.783 
See  Figure  A.l  for  section  3.2  component  weights 
these  results  obtained  using  Reference  9 
Section  3.2  new  gross  weight    =  37710.35 
Disk  loading  =  10.41524 

Figure  of  merit  =  .8078 

Percent  induced  power  =  82.556 

See  Figure  A. 2  for  section  3.5  component  weights 
these  results  obtained  using  Reference  9 
Section  3.5  new  gross  weight    =  39658.52 
See  Figure  A. 3  for  section  3.8  component  weights 
these  results  obtained  using  Reference  9 
Total  power  HIGE  =  3665.336 

Equivalent  flat  plate  area      =  46.33785 
Calculations  at  60  knots  give  the  following: 
Main  rotor  induced  power    =  1721.21 
Main  rotor  profile  power    =  750.96 
Main  rotor  parasite  power   =  103.98 
Main  rotor  tip  mach         =  .741 
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Chapter  Four  Results 

Tail  rotor  radius  = 

Tail  rotor  RPM  = 

Tail  rotor  aspect  ratio  = 

Number  of  tail  rotor  blades  = 

Tail  length  = 

Tail  rotor  total  power  = 

Calculations  at  60  knots  give  the 

Tail  rotor  induced  power  = 

Tail  rotor  profile  power  = 

Tail  rotor  total  power  = 

Tail  rotor  tip  mach  = 

Tail  rotor  solidity  = 

Vertical  stabilizer  planform  = 

Vertical  stabilizer  AOA  = 

Vertical  stabilizer  EFPA  = 

Vertical  stabilizer  addition  to 

parasite  power 

Chapter  Five  Results 


8.42 

918.93 

6.5 

4 

41 

371.70 

following; 

44.84 

120.76 

165.60 

.817 

.195883 

44 

9.83 

4.116 


=  73.89 


Main  rotor  blade  twist  angle    =  -10 
Calculations  at  60  knots  give  the  following; 
Alpha(90)  =  .660 

Alpha(270)  =  6.10 

Calculations  at  60  knots  give  the  following; 
Alpha(270)  =  15.616 

Ps  =  344.32 

M90  =  .87667 

Merit  =  .851632 

Pm  =0.0 

Total  power  required         =  3  577.3 
Power  required  at  Vmax  SSL      =  3577.3 
Power  required  at  Vmax  at  ALT   =  3544.97 
Power  required  at  hover  ceiling  =  7760.25 
Maximum  RSHP  required  =  7760.2  5 

Power  with  straight-in  inlets   =  7915.458 
Engine  shaft  horsepower  required=  8978.21 

5.  Chapter  Six  Results 


Number  of  engines 
Availability  engine  A 
Maintainability  engine  A 
Reliability  engine  A 
Installation  weight  engine 
Installation  weight  engine 
Transmission  weight 
New  total  power  HOGE 
New  disk  loading 


A 
A 


2 

.57378 

.29836 

.99781 

930 

892.8 

5000 

4681.426 

11.11586 
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New  figure  of  merit  =  .82065 

New  percent  induced  power  =  83.92845 

Percent  difference  in  total  pwr  =  1.3  3 

Percent  difference  in  weight  =  1.03 

6 .  Chapter  Seven  Results 

Fuel  flow  (military)  =  4082.16 

Fuel  flow  (normal)  =  3485.4 

Zero  horsepower  intercept  SSL  =  238.324 

Zero  Horsepower  intercept  ALT  =  212.854 

Phantom  horsepower  =  543.132 
Maximum  range: 

Velocity  from  Figure  A. 4  =  138 

RSHP  required  =  3223.899 

Referred  horsepower  =  3767.032 

Fuel  flow  required  =  1652.951 
Maximum  endurance: 

Velocity  from  Figure  A. 4  =87 

RSHP  required  =  2502.347 

Referred  horsepower  =  3045.480 

Fuel  flow  required  =  1336.339 

Cruise  fuel  flow  at  SSL  =  1677.498 

New  fuel  weight  =  4714.015 

New  gross  weight  =  40961.09 

7 .   Chapter  Eight  Results 

Percent  difference  in  design 

gross  weight  =  .73 
Difference  in  specification  gross 

weight  and  design  gross  weight  =  1038.914 
Hover  power  for  design  gross  wt.=  4803.413 

Best  rate  of  climb  airspeed  =  87 

Maximum  rate  of  climb  =  6259.86 
From  program: 

Maximum  hover  altitude  =  914  0 

Service  ceiling  =  16410 

Body  width  =8.9 

Body  height  =8.9 

Fuselage  length  =  54.94 

8 .  Chapter  Nine  Results 

No  calculations  required  for  this  chapter. 
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9.  Chapter  Ten  Results 

See  Figure  A. 5  for  component  costs  these 

results  obtained  using  Reference  9 

Total  cost  =  5362134 
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ROTOR  WEIGHT 
TAIL  ROTOR  WEIGHT 
TAIL  STRUCTURE  WEIGHT 
BODY  WEIGHT 
LANDING  GEAR  WEIGHT 
NACELLE  WEIGHT 
ENGINE  WEIGHT 
DRIVE  TRAIN  WEIGHT 
FUEL  TANK  WEIGHT 
FLIGHT  CONTROL  WEIGHT 
AUX  POWER  WEIGHT 
INSTRUMENT  WEIGHT 
HYDRAULICS  WEIGHT 
ELECTRICAL  WEIGHT 
AVIONICS  WEIGHT 
FURNISHINGS  WEIGHT 
AIRCON/DEICE  WEIGHT 
LOAD/HANDLING  WEIGHT 

TOTAL  EMPTY  WEIGHT 

USEFUL  LOAD 

FUEL 

CREW  WEIGHT 

TOTAL  GROSS  WEIGHT 


5266. S32 

377. 5182 

262.3103 

4920. 282 

1101. 181 

338. 2442 

3491. 853 

2471.216 

316.069 

1233. 494 

139 

168.6002 

197. 4284 

602.9511 

325 

387. 1861 

189. 9492 

170.8413 

21960. 35 
11000 
4000 
750 

37710. 35 


Figure  A.l    Section  3.2  Weight  Results 
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ROTOR  WEIGHT 
TAIL  ROTOR  WEIGHT 
TAIL  STRUCTURE  WEIGHT 
BODY  WEIGHT 
LANDING  GEAR  WEIGHT 
NACELLE  WEIGHT 
ENGINE  WEIGHT 
DRIVE  TRAIN  WEIGHT 
FUEL  TANK  WEIGHT 
FLIGHT  CONTROL  WEIGHT 
AUX  POWER  WEIGHT 
INSTRUHENT  WEIGHT 
HYDRAULICS  WEIGHT 
ELECTRICAL  WEIGHT 
AVIONICS  WEIGHT 
FURNISHINGS  WEIGHT 
AIRCON/DEICE  WEIGHT 
LOAD/HANDLING  WEIGHT 

TOTAL  EMPTY  WEIGHT 

USEFUL  LOAD 

FUEL 

CREW  WEIGHT 


5266. 632 
398. 4973 
284. 7139 
5S16. 428 
1212. 537 
363. 8887 
3963. 226 
2825. 509 
316.069 
1334. 547 
139 

178. 1374 
222. S668 
628. 3101 
325 

424. 307 
202. 4012 
196. 7558 

23908. 52 
11000 
4000 
750 


TOTAL  GROSS  WEIGHT 


39658. 52 


Figure  A. 2    Section  3.5  Weight  Results 
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ROTOR  WEIGHT 
TAIL  ROTOR  WEIGHT 
TAIL  STRUCTURE  WEIGHT 
BODY  WEIGHT 
LANDING  GEAR  WEIGHT 
NACELLE  WEIGHT 
ENGINE  WEIGHT 
DRIVE  TRAIN  WEIGHT 
FUEL  TANK  WEIGHT 
FLIGHT  CONTROL  WEIGHT 
AUX  POWER  WEIGHT 
INSTRUMENT  WEIGHT 
HYDRAULICS  WEIGHT 
ELECTRICAL  WEIGHT 
AVIONICS  WEIGHT 
FURNISHINGS  WEIGHT 
AIRCON/DEICE  WEIGHT 
LOAD/HANDLING  WEIGHT 

TOTAL  EMPTY  WEIGHT 

USEFUL  LOAD 

FUEL 

CREW  WEIGHT 


S2&6 

.  632 

414. 

345 

296. 

3162 

6252 

:.  157 

909. 

2452 

385. 

3187 

4199 

1.  272 

3002 

:.  196 

316. 

069 

141  = 

1.  416 

139 

182. 

4551 

244. 

4637 

669. 

1964 

325 

458. 

2063 

212. 

7259 

220. 

4214 

24912.94 

1100O 

4000 

750 

TOTAL  GROSS  WEIGHT 


40662. 94 


Figure  A. 3    Section  3.8  Weight  Results 
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Figure  A. 4        Power  versus  Airspeed   Plot 
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ROTOR  COST 
TAIL  ROTOR  COST 
TAIL  STRUCTURE  COST 
BODY  COST 
LANDING  GEAR  COST 
NACELLE  COST 
ENGINE  COST 
DRIVE  TRAIN  COST 
FUEL  TANK  COST 
FLIGHT  CONTROL  COST 
AUX  POWER  COST 
INSTRUMENT  COST 
HYDRAULICS  COST 
ELECTRICAL  COST 
AVIONICS  COST 
FURNISHINGS  COST 
AIRCON/DEICE  COST 
LOAD/HANDLING  COST 

TOTAL  COST  (1977  US9 ) 
TOTAL  COST  (CURRENT  DQLLRS ) 


365377. S 
30094. 42 
25368.24 
381532. 5 
28372. 65 
37292. 97 
1400000 
197167. a 

42051. 16 
146566. 3 
22357. 39 
15096. 15 
14725. 01 
63341. 69 

33737. 17 
20927. 15 
29991. 62 
13451. 03 

2867451 
5362134 


Figure  A. 5    Component  Cost 
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B.   PROGRAM  RESULTS 


TABLE  OF  CHAPTER  TWO  RESULTS 


SPECIFICATION  GROSS  WEIGHT 

ROUGH  ESTIMATE  GROSS  WEIGHT 

ESTIMATE  OF  MANUFACTURER'S  EMPTY 

MAXIMUM  TIP  VELOCITY 

ROTOR  RADIUS 

ROTATIONAL  VELOCITY 

THRUST  COEFFICIENT 

BLADE  SOLIDITY 

NUMBER  OF  MAIN  ROTOR  BLADES 

BLADE  CHORD 

BLADE  ASPECT  RATIO 

AVERAGE  LIFT  COEFFICIENT 

BLADE  LIFT  CURVE  SLOPE 

BLADE  DRAG  COEFFICIENT 

DISC  LOADING 

MAXIMUM  ADVANCE  RATIO 

MAXIMUM  BLADE  LOADING 

MAXIMUM  FORWARD  VELOCITY 


WEIGHT 


42000 

33600 

22000 

725. 9785 

33. 94851 

21.38469 

9. 259719E-03 

. 1028858 

6 

1. 828836 

18. 56291 

.  54 

5.  73 

a. 999999E-03 

11.  6 

. 3487248 

9. 000001E-02 

150 
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TABLE  OF  CHAPTER  THREE  RESULTS 


SPECIFICATION  GROSS  WEIGHT 

ROUGH  ESTIMATE  GROSS  WEIGHT 

ESTIMATE  OF  MANUFACTURER'S  EMPTY  WEIGHT 

MAXIMUM  TIP  VELOCITY 

ROTOR  RADIUS 

ROTATIONAL  VELOCITY 

THRUST  COEFFICIENT 

BLADE  SOLIDITY 

NUMBER  OF  MAIN  ROTOR  BLADES 

BLADE  CHORD 

BLADE  ASPECT  RATIO 

AVERAGE  LIFT  COEFFICIENT 

BLADE  LIFT  CURVE  SLOPE 

BLADE  DRAG  COEFFICIENT 

DISC  LOADING 

MAXIMUM  ADVANCE  RATIO 

MAXIMUM  BLADE  LOADING 

MAXIMUM  FORWARD  VELOCITY 

TIPLOSS 

INDUCED  POWER  IN  HOVER  OGE 

PROFILE  POWER  IN  HOVER  OGE 

TOTAL  POWER  IN  HOVER  OGE 

FIGURE  OF  MERIT 

PERCENT  INDUCED  POWER 

INDUCED  POWER  IN  HOVER  IGE 

TOTAL  POWER  IN  HOVER  IGE 

EQUIVALENT  FLAT  PLATE  AREA 


42000 

33600 

22000 

725. 9785 

33. 94851 

21. 38469 

1. 110061E-02 

. 1028858 

6 

1. 828836 

18. 56291 

.  54 

5.  73 

a. 999999E-03 

11. 23072 

. 3487248 

9. 000001E-02 

150 

. 9751666 

3675. 529 

692. 979 

4368. 508 

. 8225925 

84. 13694 

2972. 357 

3665. 336 

46. 33785 
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WEIGHT  ESTIMATION  TABLE 


1. 

ROTOR: 

2. 

TAIL   ROTOR: 

STRUCTURE: 

3. 

BODY: 

4. 

LANDING  GEAR: 

5. 

NACELLE: 

6. 

PROPULSION  ENGINE: 

DRIVE: 

FUEL  TANKS 

7. 

FLIGHT  CONTROLS: 

a. 

AUXILLARY  POWER: 

9. 

INSTRUMENTS: 

10. 

HYDRAULICS: 

11. 

ELECTRICAL: 

12. 

AVIONICS: 

13. 

FURNISHINGS: 

14. 

AIR  i  ICE: 

15. 

LOAD  &  HANDLING: 

FIRST 

•-  ITERATION  --- 
SECOND 

THIRD 

5266. 632 

5266. 632 

5266. 532 

377. 6182 

398. 4973 

414. 845 

262. 3103 

284. 7139 

296. 3162 

4920. 282 

5616. 428 

5252. 158 

liai. 181 

1212. 537 

909. 2452 

338. 2442 

363. 8887 

385. 3187 

3491.852 

3963. 226 

4199. 271 

2471. 216 

2825. 509 

3002. 196 

316. 069 

316. 069 

316. 069 

1233. 494 

1334. 547 

1419. 415 

139 

139 

139 

168. 6002 

178. 1374 

132. 4551 

197. 4284 

222. 5668 

244. 4637 

602. 9511 

638. 3101 

669. 1965 

325 

325 

325 

387. 1861 

424.307 

458. 2064 

189. 9492 

202. 4012 

212. 7259 

170.8413 

196.7558 

220. 4214 

THE  NEW  MANUFACTURER'S  EMPTY  WEIGHT  =  24912.94 
THE  NEW  GROSS  WEIGHT  =  40662. 94 
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MAIN  RQTQR  POWER 

STANDARD  SEA  LEVEL 
ALTITUDE=  0  FT      TEMPERATURE  =  59  DEG.  F 


POWER 


AIRSPEED 

TIP 

(knots) 

MACH 

0.  0 

0.S50 

20.  0 

0.  680 

40.  0 

0.  710 

60.  0 

0.  741 

80.  0 

0.  771 

100.  0 

0.  801 

120.  0 

0.  831 

140.  0 

0.  862 

150.  0 

0.  877 

INDUCED 
(SHP) 

3675. 53 

3261. 74 

2395. 60 

1721. 21 

1312. 32 

1054. 90 

880. 52 

755. 39 

705. la 


PROFILE 
(SHP) 

692. 98 
699. 42 

7ia. 75 
750. 96 
796. 05 
854. 03 
924. 90 
1008. 65 
1055.35 


PARASITE 

TOTAL 

(SHP) 

(SHP) 

0.  00 

4368. 51 

3.85 

3965.01 

30.  81 

3145. 15 

103. 98 

2576. 15 

246. 47 

2354. 85 

481. 40 

2390. 32 

831. 85 

2637. 37 

1320. 95 

3084. 99 

1624. 71 

3385. 25 

MAIN  ROTOR  POWER 


SPECIFICATION  ALTITUDE 
ALTITUDE  =  4000   FT      TEMPERATURE 


95   DEG. 


POWER 


AIRSPEED 

TIP 

(knots) 

MACH 

0.  0 

0.629 

20.  0 

0.  658 

40.  0 

0.688 

60.  0 

0.  717 

80.  0 

0.  746 

100.  0 

0.  775 

120.  0 

0.  805 

140.  0 

0.  834 

150.0 

0.  848 

INDUCED 
(SHP) 

4100. 52 
3722. 30 

2866. 26 
2111. 64 
1622. 30 
1307. 23 

1092. 27 
937. 32 
875. 11 


PROFILE 
(SHP) 

559.66 
564. 86 

580. 47 

606. 48 
642. 90 
689. 72 
746. 95 
814. 59 
852. 31 


PARASITE 

TOTAL 

(SHP) 

(SHP) 

0.  00 

4660. 18 

3.  11 

4290. 27 

24.  88 

3471. 61 

83.  98 

2802. 10 

199. 05 

2464. 25 

388. 78 

2385. 73 

671.  81 

2511. 03 

1066. 81 

2818.72 

1312. 13 

3039. 55 
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TABLE  OF  CHAPTER  FOUR  RESULTS 


TAIL  ROTOR  RADIUS 

TAIL  ROTOR  ROTATIONAL  VELOCITY 

TAIL  ROTOR  RPM 

TAIL  ROTOR  THRUST  COEFFICIENT 

TAIL  ROTOR  BLADE  SOLIDITY 

NUMBER  OF  TAIL  ROTOR  BLADES 

TAIL  ROTOR  BLADE  CHORD 

TAIL  ROTOR  BLADE  ASPECT  RATIO 

TAIL  ROTOR  BLADE  DRAG  COEFFICIENT 

TAIL  ROTOR  TIPLOSS 

TAIL  ROTOR  INDUCED  POWER  IN  HOVER  OGE 

TAIL  ROTOR  PROFILE  POWER  IN  HOVER  OGE 

TAIL  ROTOR  TOTAL  POWER  IN  HOVER  OGE 

TAIL  ROTOR  INDUCED  POWER  IN  HOVER  IGE 

TAIL  ROTOR  TOTAL  POWER  IN  HOVER  IGE 

TAIL  LENGTH 

VERTICAL  STABILIZER  PLANFORM  AREA 

VERTICAL  STABILIZER  SPAN 

VERTICAL  STABILIZER  SWEEP  AT  MID-CHORD 

VERTICAL  STABILIZER  ASPECT  RATIO 

VERTICAL  STABILIZER  ANGLE  OF  ATTACK 

VERTICAL  STABILIZER  COEFFICIENT  OF  LIFT 

VERTICAL  STABILIZER  LIFT  CURVE  SLOPE 

LEVER  ARM  OF  VERTICAL  STABILIZER 


a. 424962 

96. 2311 

918. 9392 

1.  ll(Z)(Z»61E-02 

. 195883 

4 

1. 296148 

6.  5 

a.  999999E-(a3 

. 965108 

261. 5307 

113. 1711 

374. 7018 

292. 0857 

383. 4836 

41 

44 

11 

47.  7 

2.75 

9. 832969 

. 8546744 

2. 649345 

37 
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TAIL  RQTQR  POWER  WITH  VERTICAL  STABILIZER 


STANDARD  SEA  LEVEL 


ALTITUDE  ^ 

=  a  FT 

TEMPERATURE  -  59 

DEC.  F 

_. TUOl  KTT 

_______   POUrD    

"  ~  ~  ~  1  rl, 

TAIL 

VERT/ 

MAIN 

VERT/ 

—  -..«-. f-^ 

J  n  cfv 

AIRSPEED 

ROTOR 

STAB 

ROTOR 

STAB 

INDUCED 

PROFILE 

TOTAL  with  v/s 

(knots) 

(Ibf  ) 

(ibf) 

(SHP) 

(•SHP»> 

(SHP) 

(SHP) 

(SHP) 

a.  a 

2740. 4 

a.  0 

4368. 5 

a.  a 

261.  5 

113.  2 

.  374. 7 

20.  a 

2487. 3 

50.  9 

3965. 0 

73.  3 

188.  5 

114.  a 

3a2.  5 

40.  a 

1973. a 

203.  7 

3145. 2 

293.  a 

76.  8 

116.  5 

193.  3 

60.  0 

161S. 0 

458.  3 

2576. 2 

659.  3 

24.  3 

12a.  a 

145.  1 

80.  0 

1477. 2 

814.  8 

2354. 8 

1172. 2 

7.  0 

126.  7 

133.  7 

100.  0 

1499. 5 

1273. 1 

2390. 3 

1831. 5 

1.  2 

134.  3 

135.  5 

120.  a 

1654. 4 

1833. 3 

2637. 4 

2637. 4 

0.  a 

143.5 

143.  5 

140.  0 

1935. 2 

2495.3 

3085. a 

3589. a 

0.  7 

154.  5 

155.2 

150.  0 

2123.6 

2864. 5 

3385.2 

4120. 9 

1.4 

160.  6 

162.  1 

TAIL  ROTOR  POWER  WITH  VERTICAL  STABILIZER 


SPECIFICATION  ALTITUDE 
ALTITUDE  =  4000   FT      TEMPERATURE  =  95 


DEC. 


t  nn 

TAIL 

VERT/ 

MAIN 

VERT/ 

r 

uncn 

AIRSPEED 

ROTOR 

STAB 

ROTOR 

STAB 

INDUCED 

PROFILE 

TOTAL  with 

v/s 

(knots) 

(ibf) 

(ibf) 

(SHP) 

( -SHP^) 

(SHP) 

(SHP) 

(SHP) 

0.  0 

2923. 3 

a.  a 

466a. 2 

a.  a 

292.  1 

91.  4 

383.  5 

20.  0 

2691. 3 

48.  5 

429a. 3 

69.  a 

244.  3 

92.  1 

336.  3 

40.  a 

2177. 7 

193.  9 

3471.6 

279.  a 

114.  4 

94.  1 

208.  5 

6a.  a 

1757. 8 

436.  4 

2802. 1 

627.  a 

38.  6 

97.  5 

136.  1 

80.  0 

1545. a 

775.  a 

2464. 2 

1116. 0 

11.  2 

102.  3 

113.  5 

100.  a 

1496. 6 

1212. 1 

2385. 7 

1743. 8 

2.0 

108.  4 

110.  5 

120.  0 

1575. 2 

1745. 5 

2511. a 

2511. 0 

0.0 

115.  9 

115.  9 

140.  0 

1768. 2 

2375.8 

2818. 7 

3417. a 

1.  3 

124.  a 

126.  1 

150.  a 

1936. 7 

2727. 3 

3a39. 5 

3923. 5 

2.6 

129.7 

132.3 
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TAIL  ROTOR  POWER 

STANDARD  SEA  LEVEL 
ALTITUDE  =  0  FT      TEMPERATURE  =  59  DEC. 


IRSPEED 

TIP 

( knots) 

MACH 

0.  0 

0.  726 

20.  0 

0.  756 

40.  0 

0.  786 

60.  0 

0.  817 

80.  0 

0.  847 

100.  0 

0.  877 

120.  0 

0.  907 

140.  0 

0.  937 

150.  0 

0.  953 

INDUCED 

—  ruwcn  — 
PROFILE 

TOTAL 

(SHP) 

(SHP) 

(SHP) 

261. 53 

113. 17 

374. 70 

200. 22 

114. 01 

314. 23 

94.  92' 

116. 55 

211. 47 

44.  84 

120. 76 

165. 60 

28.  29 

126. 67 

154. 96 

23.  36 

134. 26 

157. 62 

23.  74 

143. 54 

167. 28 

27.  91 

154. 51 

182. 41 

31.  40 

160. 62 

192. 03 

TAIL  ROTOR  POWER 


ALTITUDE  = 


SPECIFICATION  ALTITUDE 
4000   FT 


AIRSPEED 

TIP 

( knots ) 

MACH 

0.  0 

0.  703 

20.  0 

0.  732 

40.  0 

0.  761 

60.0 

0.  790 

80.  0 

0.  820 

100.  0 

0.  849 

120.0 

0.  878 

140.  0 

0.  907 

150.  0 

0.  922 

TEMPERATURE  =  95 

DEC.  F 

onvjcT? 

—  nU  Wc.K  — 

INDUCED 

PROFILE 

TOTAL 

(SHP) 

(SHP) 

(SHP) 

292. 09 

91.  40 

383. 48 

259. 69 

92.  08 

351. 77 

137. 76 

94.  12 

231. 89 

65.  41 

97.  53 

162. 94 

38.  41 

102. 30 

140. 71 

28.  87 

108. 43 

137. 30 

26.  70 

115. 92 

142. 62 

28.  89 

124. 78 

153. 67 

31.  39 

129. 72 

161. 11 
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TABLE  OF  CHAPTER  FIVE  RESULTS 


BLADE  TWIST 

BLADE  STALL  ANGLE  OF  ATTACK 

BLADE  Merit 

BLADE  LIFT  CURVE  SLOPE 

BLADE  Cdo 

RSHP  REQUIRED  AT  MAXIMUM  VELOCITY: 

SPECIFICATION  ALTITUDE 

STANDARD  SEA  LEVEL 
RSHP  FOR  HOVER  CEILING,  IGE 
MAXIMUM  RSHP 
INLETS  AND  INLET  DUCTING  LOSSES: 

S-TYPE 

ICE  SHEILD 

STRAIGHT  IN 
ENGINE  AIR  PARTICLE  SEPARATORS: 

BARRIER 

PARTICLE  SEPARATOR 
ENGINE  EXHAUST  DIFFUSERS: 

HEAT  DIFFUSERS 
INFRA-RED  SUPPRESSER  DIFFUSER 
ENGINE  SHAFT  HORSEPOWER  REQUIRED 


14 

14 

.  775 

5.  73 

a. 999999E-03 

3544. 

972 

3577. 

272 

7760. 

253 

7760. 

253 

0  •/. 

0  % 

2  •/. 

0  */. 

0  •/. 

0  •/. 

0  •/. 

8978. 

214 
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COMPRESSIBILITY  AND  STALL  EFFECTS  ON  POWER  REQUIRED 

STANDARD  SEA  LEVEL 
ALTITUDE  =  a  FT      TEMPERATURE  =  59  DEC.  F 


AIRSPEED 

ALPHA 

ALPHA 

M90 

Merit 

Ps 

Pm 

(kts) 

(90) 

(270) 

<3hp) 

(shp) 

Q.  a 

-0. 190 

-0. 190 

0. 6500 

0.7826 

0.0 

0.  a 

20.  a 

-a. 689 

-0.018 

0. 6802 

0. 8027 

0.0 

a.  a 

40.  0 

-1. 158 

0.  178 

0. 7104 

0. 8215 

0.0 

0.  0 

60.  a 

0.  671 

6.  a9a 

a. 74a7 

0. 7480 

0.  0 

0.  0 

ae.  a 

-0. 098 

6.  899 

a. 7709 

0. 7789 

0.  0 

a.  a 

100.  a 

-a. 717 

8.  022 

a. 8011 

0. 8038 

0.  0 

a.  a 

120.  a 

-1. 241 

9.  495 

0. 8313 

a. 8248 

0.  0 

a.  a 

14a.  a 

-1. 599 

11. 400 

a. 8616 

a. 8432 

0.0 

a.  a 

15a.  a 

-1. 909 

12. 550 

0. 8767 

a. 8516 

0.  0 

a.  0 

170.  0 

-2.307 

15. 326 

0. 9069 

a. 8676 

384.  1 

0.0 

COMPRESSIBILITY  AND  STALL  EFFECTS  ON  POWER  REQUIRED 


SPECIFICATION  ALTITUDE 
ALTITUDE  =  4000   FT      TEMPERATURE  =  95 


DEC. 


AIRSPEED 

ALPHA 

ALPHA 

M90 

Merit 

Pa 

Pm 

<kt3) 

(90) 

(270) 

(Bhp) 

(shp) 

0.0 

a.  922 

0.  922 

0. 6291 

0. 7380 

0.  0 

0.  a 

20.0 

a.  276 

1.  216 

0.6584 

a. 7639 

0.  0 

0.  0 

40.  0 

-a. 328 

1.  550 

0. 6876 

a. 7882 

0.  0 

0.  0 

60.  0 

1.  729 

a.  492 

0. 7169 

a. 7a56 

0.  0 

0.  a 

80.0 

0.755 

9.  459 

0. 7461 

a. 7447 

0.  0 

0.  0 

100.0 

-0.039 

10. 757 

a. 7754 

0. 7766 

0.  0 

a.  a 

120.0 

-0. 720 

12. 394 

a. 8046 

0. 8039 

0.  a 

a.  a 

140.  a 

-1. 324 

14. 426 

0. 8339 

0. 8281 

86.  8 

a.  0 

150.  0 

-1. 603 

15. 616 

0. 8485 

0. 8394 

344.  3 

0.  0 

170.0 

-2. 128 

18. 403 

0. 8777 

0. 8604 

1029. 8 

0.  0 
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TOTAL  POWER  REQUIRED 
(With  High  Speed  Effects) 
STAHDARD  SEA  LEVEL 
ALTITUDE  =  0  FT      TEMPERATURE  =  59  DEC. 


IRSPEED 

PI 

Po 

Pp 

Pa 

Pm 

Ptr 

PT 

(kta) 

(shp) 

(shp) 

(ahp) 

(ahp) 

(ahp) 

(shp) 

(ahp) 

a.  a 

3675. 5 

693.  0 

0.  a 

0.  0 

0.0 

374.7 

4743. 2 

20.  a 

3261. 7 

699.  4 

3.  9 

a.  a 

0.  a 

314.  2 

4279. 2 

40.  0 

2395. 6 

718.  7 

30.  8 

a.  a 

a.  a 

211.  5 

3356. 6 

60.  a 

1721.2 

751.  a 

104.  a 

0.  a 

a.  a 

165.  6 

2741. 8 

aa.  a 

1312. 3 

796.  1 

246.  5 

a.  0 

0.  0 

155.  a 

2509. a 

laa.  a 

1054. 9 

854.  a 

481.  4 

0.  0 

0.  0 

157.  6 

2547. 9 

120.  0 

380.  6 

924.  9 

831.  9 

0.  a 

0.  a 

167.  3 

28a4. 7 

140.  0 

755.  4 

ia08. 6 

1320. 9 

0.  0 

0.  0 

182.  4 

3267. 4 

150.  0 

705.  2 

1055. 4 

1624. 7 

0.  0 

0.  0 

192.  a 

3577. 3 

170.  a 

622.  4 

1158. 4 

2365. 1 

384.  1 

0.  0 

215.  a 

4745. a 

TOTAL  POWER  REQUIRED 
(With  High  Speed  Effecta) 
SPECIFICATION  ALTITUDE 
ALTITUDE  =  4300   FT      TEMPERATURE  =  95 


DEC.  F 


AIRSPEED 

Pi 

Po 

Pp 

Pa 

Pm 

Ptr 

PT 

(kta) 

(shp) 

(ahp) 

(shp) 

(shp) 

(ahp) 

(shp) 

(shp) 

0.  a 

4ia0. 5 

559.  7 

a.  a 

0.  0 

a.  a 

333.  5 

5043. 7 

2a.  a 

3722. 3 

564.  9 

3.  1 

a.  a 

a.  0 

351.  3 

4642. 0 

4a.  a 

2866. 3 

580.  5 

24.  9 

a.  a 

0.  0 

231.  9 

3703. 5 

aa.  a 

2111. 6 

606.  5 

84.  0 

a.  a 

0.  0 

162.  9 

2965. a 

80.  0 

1622. 3 

642.  9 

199.  1 

a.  a 

a.  a 

140.  7 

26a5. a 

100.  0 

1307. 2 

689.  7 

388.  3 

a.  a 

a.  a 

137.  3 

2523. a 

120.0 

1092. 3 

747.  0 

671.  3 

a.  a 

a.  a 

142.  6 

2653.7 

140.  a 

937.  3 

814.  6 

1066. 3 

86.  a 

0.  0 

153.  7 

3059. 2 

15a.  a 

375.  1 

852.  3 

1312. 1 

344.3 

0.0 

161.  1 

3545. 0 

17a.  a 

772.  5 

935.  6 

1910. 1 

ia29. a 

0.0 

130.  0 

4827. 9 
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TABLE  OF  CHAPTER  SIX  RESULTS 

SELECTED  ENGINE  DATA 

DRY  WEIGHT  720 

SHP  4380 

SFC  .  466 

INITIAL  COST  700 

OPERATING  COST  60 

PREVENTIVE  MAINTENANCE  220 

MTBMA  3. 5 

MDT  2. 6 

MTBR  750 

REPLACEMENT  COST  945 

SALVAGE  COST  560 

AVAILABILITY  .5737705 

RELIABILITY  .9973146 

MAINTAINABILITY  .2983607 

TRANSMISSION  RATING  (SHP)  8500 

TRANSMISSION  WEIGHT  5000 

NEW  GROSS  WEIGHT  40247.07 

TOTAL  POWER  TO  HOVER  OGE  4681.426 

DISC  LOADING  11.  11586 

FIGURE  OF  MERIT  .8206506 

PERCENT  INDUCED  POWER  83. 9285 

PERCENT  DIFFERENCE  IN  POWER                 1.319888 

PERCENT  DIFFERENCE  IN  WEIGHT                1.033295 
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ENGINE  SELECTION  CRITERIA 


PQWERPLANT  WEIGHT: 
LIFE-CYCLE  COST  (10003): 
ENGINE  LIFE  ( hra ) : 
No.  OF  REPLACEMENTS: 
R/D  COSTS: 
INITIAL  COSTS: 
ANNUAL  tIAINT.  COST: 
ANNUAL  OPERATING  COST: 
REPLACEMENT  COST: 
SALVAGE  VALUE: 
AVAILABILITY  (per  engine): 
RELIABILITY  (per  engine): 
MAINTAINABILITY  (per  engine) 
PERFORMANCE  (military  SHP): 




•  ENGINE 

A 

B 

C 

893 

930 

3545 

3545 

750 

750 

2 

2 

0 

0 

700 

700 

26 

26 

7 

7 

945 

945 

560 

560 

0. 5733 

0. 5738 

0. 9978 

0. 9978 

0. 2984 

0. 2984 

4380 

3400 

36 


TABLE  OF  CHAPTER  SEVEN  RESULTS 

SFC  MILITARY  POWER  .466 

SFC  NORMAL  POWER  .471 

SFC  CRUISE  POWER  0 

SHP  MILITARY  POWER  4380 

SHP  NORMAL  POWER  3700 

SHP  CRUISE  POWER  0 

FUEL  FLOW  MILITARY  POWER  4082. 16 

FUEL  FLOW  NORMAL  POWER  3485. 4 

FUEL  FLOW  CRUISE  POWER  0 

ZERO  HORSEPOWER  INTERCEPT  AT  SSL  238.3233 
ZERO  HORSEPOWER  INTERCEPT  AT  SPEC.  ALTITUDE    212. 8536 

PHANTOM  HORSEPOWER  AT  SSL  543.  1323 

PHANTOM  HORSEPOWER  AT  SPEC.  ALTITUDE  485.0875 

MAXIMUM  RANGE  VELOCITY  138 

MAXIMUM  RANGE  REFFERED  HORSEPOWER  3767.032 

MAXIMUM  RANGE  FUEL  FLOW  1652.951 

MAXIMUM  ENDURANCE  VELOCITY  87 

MAXIMUM  ENDURANCE  REFFERED  HORSEPOWER  3045. 48 

MAXIMUM  ENDURANCE  FUEL  FLOW  1336.339 

CRUISE  FUEL  FLOW  AT  SSL  1677.498 

CRUISE  FUEL  FLOW  AT  SPEC.  ALTITUDE  1559.997 

TOTAL  FUEL  REQUIRED  4714.016 

NEW  GROSS  WEIGHT  40961.09 
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TABLE  OF  CHAPTER  EIGHT  RESULTS 


HOVER  POWER  FOR  DESIGN  GROSS  WEIGHT  4803.413 

PERCENT  DIFFERENCE  IN  DESIGN  GROSS  WEIGHT  .7278821 

DIFFERENCE  IN  DESIGN  AND  SPEC.  GROSS  WEIGHT    1038.91 

NEW  GROSS  WEIGHT  40961.09 

MAXIMUM  RATE  OF  CLIMB  AIRSPEED  87 

MAXIMUM  RATE  OF  CLIMB  6259. 86 

MAXIMUM  RATE  OF  CLIMB  POWER  REQUIRED  2509. 604 

MAXIMUM  HOVER  ALTITUDE,  IGE  9140 

SERVICE  CEILING  16410 

BODY  WIDTH  8. 899999 

BODY  HEIGHT  8. 899999 

FUSELAGE  LENGTH  54.94 
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FINAL  SUMMARY 
►  PERFORMANCE  < 


CREW: 

INTERNAL  LOAD  (Iba): 
SERVICE  CEILING  (ft): 
HOVER  CEILING  (ft): 
VELOCITY  (kta)  CRUISE: 

MAXIMUM: 

MAX  ENDURANCE: 

MAX  RANGE: 

BLADE  STALL  ON-SET: 
MAX  RATE  OF  CLIMB  (FT/MIN): 
ENGINE  -         NUMBER: 

TYPE: 

SHP  (asi)  MILITARY! 


SPECIFICATION 
3 

200(30 
i5250 
140 
150 


1750 


DESIGN 

3 

11000 

16410 

9140 

140 

150 

87 

138 
■  140 

6259. 86 

2 
T64-GE-415/416 

4380 


•  GEOMETRY  • 


WEIGHT  (lbs) 

FUEL  CAPACITY 
MAIN  ROTOR  - 


TAIL  ROTOR  - 


MAX  GROSS: 
EMPTY: 
(lbs) : 
CHORD  (ft) : 
RADIUS  (ft) : 
NUMBER  OF  BLADES: 
DRAG  COEFFICIENT: 
SOLIDITY: 
CHORD  (ft) : 
RADIUS  (ft): 
NUMBER  OF  BLADES: 
DRAG  COEFFICIENT: 
ROTATIONAL  VEL  (rad/sec) 
SOLIDITY: 
VERTICAL  TAIL  AREA  (ft2) 


42000 
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FUSELAGE  LENGTH  (ft): 
EFPA  (ft2)  -    FORWARD: 
VERTICAL: 


55 


40961. 09 

24497. 07 

4714. 016 

1.828836 

33. 94851 

6 

a. 999999E-03 

. 1028858 

1. 296148 

a. 424962 

4 

a. 999999E-03 

96. 2311 

. 195883 

44 

54.  94 

46.33785 

88. 88743 
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1. 

ROTOR: 

2. 

TAIL   ROTOR: 

STRUCTURE: 

3. 

BODY: 

4. 

LANDING  GEAR: 

5. 

NACELLE: 

6. 

PROPULSION  ENGINE: 

DRIVE: 

FUEL  TANKS: 

7. 

FLIGHT  CONTROLS: 

a. 

AUXILLARY  POWER: 

9. 

INSTRUMENTS: 

10. 

HYDRAULICS: ■ 

11. 

ELECTRICAL: 

12. 

AVIONICS: 

13. 

FURNISHINGS: 

14. 

AIR  i  ICE: 

15. 

LOAD  i  HANDLING: 

COST  ESTIMATION  TABLE 

COST 

365377. 7 
30094. 42 
25368. 24 
381532. 5 
28372. 65 
37292. 97 
1400000 
197167.8 

42051. 16 
146566. 4 
22357. 39 

15096. 15 
14725. 02 
63341. 7 

33737. 17 

20927. 16 
29991.63 
13451. 02 

TOTAL  COST  =  5362134 


40 


APPENDIX  B 
HELICOPTER  DESIGN  PROGRAM  USER'S  GUIDE 

I.  INTRODUCTION 

This  program  is  not  intended  to  eliminate  the 
requirement  for  the  Helicopter  Design  Manual  by  Professor 
Donald  M.  Layton  [Ref.  1]  but  to  complement  it.  The 
program  follows  Reference  1  section  by  section  thus 
requiring  its  availability  as  a  reference  during  design 
development.  The  program  itself  is  menu  driven  allowing 
selection  of  chapters,  sections  and  options  by  using  the 
cursor  keys  and  the  enter  key  (^ — »)  .  Chapters  Two  through 
Ten  of  Reference  1  are  covered  by  the  program.  The 
program's  Chapter  One  is  an  introduction  to  program  use. 

II.  THE  BASICS 

A.   HARDWARE  REQUIREMENTS 

An  IBM  PC  or  compatible  computer  with  at  least  12 8K 
RAM  will  be  needed.   A  color  monitor  is  preferable  but  not 
a  must;  however,   a  color  or  monochrome  graphics  card 
should  be   installed.   Any  type  of  printer  that  allows 
print  screen  operation  will  work. 
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B.  GETTING  STARTED 

Place  the  main  program  disk  into  Drive  A  and  a 
formatted  disk  (see  the  computer's  operation  manual  for 
formatting  instructions)  into  Drive  B,  this  will  be  your 
data  disk.  The  program  is  bootable  from  the  disk  so  just 
turn  the  computer  on  and  the  program  will  load  and  start 
running.  If  the  computer  is  already  on,  load  the  disks  as 
stated  above,  hit  the  CTRL, ALT, DELETE  keys  simultaneously 
and  the  program  will  load  and  run. 

C.  RUNNING  THE  PROGRAM 

After  program  loading  is  complete  the  main  menu  will 
appear  on  the  screen.  The  cursor  bar  will  be  over  the 
first  selection  of  the  menu  which  is  Chapter  One.  If  a 
first  time  user,  take  a  minute  to  look  over  the 
introductory  chapter,  otherwise  select  the  chapter  or 
option  desired.  Chapter  or  option  selection  may  be  made 
by  moving  the  cursor  bar  over  the  selection  with  the  up 
(f)  or  down  (4)  cursor  key  and  depressing  the  enter  (^ — i) 
key.  A  loading  chapter. . .  please  wait. . .  window  will 
appear  followed  by  the  menu  for  the  selected  chapter. 
Section  or  option  selection  can  be  made  the  same  way  as 
with  the  main  menu. 
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1.   Some  Special  Notes 

a.  Press  Any  Key  to  Continue 

When  a  "press  any  key  to  continue"  is 
displayed,  do  not  use  the  space-bar.  If  by  chance  the 
space-bar  is  used,  just  press  it  again  and  then  press 
another  key. 

b.  Clearing  Data  in  the  Program 

If  at  any  time  data  or  variable  assignments 
need  to  be  cleared  from  the  program  and  reloaded  from  the 
file  disk  (this  is  a  good  idea  when  redoing  a  chapter  to 
prevent  mixing  old  and  new  data)  ,  return  to  the  main  menu 
and  hit  the  F5  key  and  then  the  enter  (^ — i)  key.  Now 
reload  the  desired  data  from  the  file  disk. 

D.   OPTIONS 

1.  Do  all  of  the  Sections  in  Order 

All  of  the  sections  of  the  chapter  may  be  done  in 
order  without  returning  to  the  chapter  menu  between  each 
section  by  selecting  this  option.  If  the  need  to  return 
to  the  chapter  menu  arises,  press  the  F9  key  and  then  the 
enter  (•<4— J)  key  and  the  chapter  menu  will  appear. 

2 .  Input  Data 

If  data  for  a  chapter  has  been  generated  outside 
of  the  program  it  may  be  entered  into  the  program  using 
this  option  (for  Chapters  Two  through  Four)  .  If  data  is 
input  for  a  section,  that  section  of  the  program  should 
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not  be  done  because  the  program  generated  data  will 
override  the  input  data. 

3 .  List  Results 

This  option  displays  the  data  generated  for  that 
particular  chapter  on  the  screen. 

4 .  Hard  Copy  of  Results 

If  a  print  out  of  the  chapter  results  is  needed, 
use  this  option.   Make  sure  the " printer  is  on. 

5.  ■  Store  Data  on  File  Disk 

It  is  a  good  idea  after  completion  of  a  chapter  to 
store  the  data  generated  by  the  program.  Selecting  this 
option  will  display  a  saving  data...  please  wait... 
window  followed  by  the  chapter  menu  ready  for  the  next 
selection.  Data  can  be  stored  for  Chapters  Two  through 
Eight. 

6.  Return  to  Main  Menu 

This  option  returns  the  program  to  the  main  menu 
to  continue  to  the  next  chapter  or  terminate  the  program. 

7.  Load  Data  From  File  Disk 

This  option  is  for  accessing  data  stored  on  the 
data  disk.  The  last  chapter  from  which  data  was  stored 
will  be  displayed  as  a  reminder.  Enter  the  chapter  number 
of  the  data  to  be  loaded.  A  loading  data...  please 
wait. . .  window  will  appear  followed  by  the  main  menu 
waiting  for  the  next  selection. 
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8  .      Exit  the   Procfram 

To  return  to  DOS  select  this  option. 
E.   CHAPTER  SPECIAL  INSTRUCTIONS 

1.  Chapter  One 

This  is  a  brief  introduction  to  program  operation. 

2 .  Chapter  Two 

Chapter  Two  covers  the  main  rotor  design.    This 
closely  follows  the  design  manual. 

3.  Chapter  Three 

Preliminary  power  calculations  are  developed  in 
this  chapter. 

a.  Section  3.4 

The  screen  will  display  the  required  data  for 
this  section  in  the  top  left  box.  The  lower  left  box 
displays  parameter  trends  (these  are  not  the  final 
results)  to  aid  in  the  decision  making  process  to  get 
figure  of  merit  and  percent  induced  power  within  limits. 
A  maximum  of  ten  iterations  may  be  done  in  this  section. 

b.  Section  3.8 

If  while  doing  this  section,  the  program  keeps 
returning  to  section  3.3  or  section  3.4  consider 
interrupting  by  pressing  the  F9  key,  then  the  enter  key 
(^ — I)  and  double  checking  the  parameters  causing  the  break 
in  execution.  This  may  even  require  returning  to  chapter 
two  to  make  changes. 
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4 .  Chapter  Four 

The   tail   rotor   design   is   performed   in   this 
chapter. 

a.   Section  4.4 

Prior  to  doing  this  section  a  vertical 
stabilizer  design  should  be  completed.  The  program  will 
need  the  span  and  planform  area  of  the  vertical 
stabilizer.  The  equivalent  flat  plate  area  and  parasite 
power  are  for  information  only  and  not  included  in  the 
total  power  calculations.  Also  the  tail  rotor  power  with 
vertical  stabilizer  power  calculations  are  for  information 
only  and  not  included  in  the  following  power  calculations. 

5 .  Chapter  Five 

Chapter  Five  deals  with  power  refinements. 

a.   Section  5.1 

This  section  is  not  part  of  the  design  manual. 
This  routine  provides  the  power  required  at  maximum 
forward  velocity  for  up  to  five  different  rotor  blades  at 
varied  twist  angles.  The  program  allows  for  selection  of 
the  rotor  blade  requiring  the  least  amount  of  power  for 
the  particular  design.  The  blade,  it's  characteristics 
and  twist  angle  associated  with  the  minimum  power 
requirement  should  be  used  in  the  remainder  of  the 
chapter.  When  putting  blade  data  into  the  table  put  the 
required  data  under  the  appropriate  heading  and  press  the 
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enter  key  (^ — i)  ,  the  cursor  will  automatically  move  to  the 
next  entry  point. 

b.   Sections  5.12  -  5.14 

After  each  selection  is  made  a  "*"  will  appear 
after  each  selection  as  a  reminder  which  devices  have  been 
selected. 

6.  Chapter  Six 

No  special  instructions ■ for  this  chapter. 

7 .  Chapter  Seven 

Range  and  endurance  calculations  are  made  in  this 
chapter. 

a.  Section  7.1 

If  the  selected  engine's  data  is  taken  from 
another  source  the  military  and  normal  powers  and  SFC 
maybe  the  only  specifications  given.  Enter  these  and 
enter  zero  for  the  cruise  entries. 

b.  Section  7.5 

This  section  will  take  some  time  to  compute. 
The  machine  will  beep  when  complete. 

8.  Chapter  Eicfht 

This  chapter  is  for  several  miscellaneous 
calculations. 

a.   Section   8.1 

Enter  the  weight  combination  (i.e.,  gross 
weight,  fuel  and  useful  load)  that  will  best  meet 
specification  requirements. 

47 


b.   Sections  8.2  -  8.4 

These  sections  will  take  some  time  to  compute. 
The  machine  will  beep  when  complete. 

9.  Chapters  Nine  and  Ten 

The  data  for  these  chapters  is  not  stored  on  the 
file  disk.  Chapter  Eight  data  is  required  to  complete 
these  two  chapters. 

10.  Units 

All   units   will   be   the   same   as   addressed   in 

Reference  1  and  Reference  2.   Some  examples  are: 

Airspeed  -  knots 

Altitude  -  feet 

Angle  -  degrees 

Weight  -  pounds 

Rotational  velocity  -  radians  per 

second 
Power  -  horsepower 
Fuel  flow  -  pounds  per  hour 
Temperature  -  degrees  Fahrenheit 
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APPENDIX  C 
VARIABLE  DEFINITIONS  AND  PROGRAM  LISTING 


A.   VARIABLE  DEFINITIONS 

1.  Constants 

PI  =  3.1415927 

RHO  =  sea  level  density 

M(l)    =  itiach  number  at   seal   level 

2 .  Counters  and  Indices 

X  =  chapter  or  section 

Z  =  chapter  counter  for  saving  data 

N  =  number  of  weight  iterations 

Y  =  weight  category  (chapter  3) 

E  =  index  for  weight  and  power  variables  in 

section  3.4 
W  =  option  item  for  section  3.4 
EE  =  counter  for  section  3.4 
I,J,K,KK,L,D  =  for  loop  indices 
NN  =  counter  in  section  3.4 

LL  =  counter  for  airspeed  2  0  kt.  increments 
RE  =  screen  listing  option 
V,Q  =  data  storage  counters 
LLL  =  airspeed  counter  in  chapter  5 
PR  =  print  option  selection 
U  =  selection  for  engine  duct  type 
Kl  =  counter  for  line  spacing  in  engine 

installation  display 
JJ  =  counter  for  maximum  range  calculations 
Gxx  =  counter  for  data  storage  and  data  loading 

3.  Flags 

AP  =  eliminate  "press  any  key  to  continue"  for 

chapter  two  or  printer  flag  for  chapter 

three  to  print  tables. 
AB  =  list  weight  estimation  table  on  screen  or 

display  results  from  section  3 . 8 
A5  =  display  weight  table  results  for  section 

3.5 
X7  =  return  to  section  3 . 8  from  section  3 . 3 
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ZZ,ZA  =  determine  which  specific  groups  of 

equations  needed  to  recalculate  figure 
of  merit  in  section  3.4 
AA  =  determines  landing  gear  type  for  weight 

calculations 
AZ  =  for  returning  to  section  3.8  from  3.4 
AQ  =  return  to  chapter  four  menu  from  section 

4.3 
AU  =  printer  flag  for  chapter  five 
XI  =  return  to  section  5.7  from  5.4  or  5.5 
AV  =  printer  flag  for  chapter  six 
AX  =  printer  flag  for  chapter  nine 

4 .  Chatper  Two  Variables 

SGW  =  specification  gross  weight 

GWl  =  rough  estimate  gross  weight 

WE  =  estimate  of  manufacturer's  empty  weight 

VTIPMAX  =  maximum  tip  velocity 

R  =  rotor  radius 

OMEGA  =  rotational  velocity 

CT  =  thrust  coefficient 

SIGMA  =  blade  solidity 

B  =  number  of  blades 

C  =  main  rotor  blade  chord 

AR  =  main  rotor  blade  aspect  ratio 

CL  =  average  lift  coefficient 

CLALPHA  =  blade  lift  curve  slope 

CDO  =  blade  drag  coefficient 

DL  =  disk  loading 

MU  =  maximum  advance  ratio 

MBL  =  Maximum  blade  loading 

MAXFVEL  =  maximum  forward  velocity 

5.  Chapter  Three  Variables 

TIPLOSS  =  main  rotor  blade  tiploss 

PIN  =  induced  power  in  hover  OGE 

PO  =  profile  power  in  hover  OGE 

PT  =  total  power  in  hover  OGE 

FM  =  figure  of  merit 

PERINDP  =  percent  induced  power 

PERDIFW  =  percent  difference  in  weight 

PERDIFP  =  percent  difference  in  power 

PINI  =  induced  power  in  hover  IGE 

PTI  =  total  power  in  hover  IGE 

EFPA  =  equivalent  flat  plate  area 

HP  =  total  power  in  hover  OGE 

PEOPLE  =  number  of  people 

PAX  =  weight  of  people 

SPECIAL  =  weight  of  special  equipment 
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S  =  total  main  rotor  blade  planform  area 

W(x,x)  =  component  weight 

UL  =  useful  load 

FUEL  =  fuel  weight 

NW  =  number  of  landing  gear 

GR  =  type  of  landing  gear 

RH  =  main  rotor  height  above  the  ground 

H  =  main  rotor  height  above  ground  at  HIGE 

M  =  mission  type  of  helicopter 

ALT  =  specification  altitude 

0(x)  =  J  =  airspeed  in  twenty  knot  increments 

VF  =  VFl  =  airspeed  in  feet  per  second 

CRUISEV  =  CRU  =  cruise  velocity 

PIF(x,x)  =  induced  power  in  forward  flight 

POF(x,x)  =  profile  power  in  forward  flight 

PPF(x,x)  =  parasite  power  in  forward  flight 

PTF(x,x)  =  total  power  in  forward  flight 

TM(x,x)  =  main  rotor  tip  mach  number 

MU  =  MUl  =  maximum  advance  ratio 

STT  =  tail  surface  area 

SB  =  body  surface  area 

ENGINE  =  number  of  engines 

6.   Chapter  Four  Variables 

TR  =  tail  rotor  radius 

TCDO  =  tail  rotor  drag  coefficient 

TRPM  =  tail  rotor  RPM 

TAR  =  tail  rotor  aspect  ratio 

TRC  =  tail  rotor  chord 

OMEGAT  =  tail  rotor  rotational  velocity 

SIGMAT  =  tail  rotor  solidity 

TL  =  tail  length 

TRA  =  tail  rotor  area 

TRVT  =  VTTR  =  tail  rotor  tip  velocity 

TTR  =  tail  rotor  thrust 

CTTR  =  tail  rotor  thrust  coefficient 

PITR  =  tail  rotor  induced  power 

POTR  =  tail  rotor  profile  power 

VF  =  VFl  =  airspeed  in  feet  per  second 

PITRF(x,x)  =  tail  rotor  induced  power  in  forward 

flight 
POTRF(X/X)  =  tail  rotor  profile  power  in  forward 

flight 
VITR  =  tail  rotor  induced  velocity 
SWP  =  vertical  stabilizer  sweep  angle  in  degrees 
SWEEP  =  vertical  stabilizer  sweep  angle  in 

radians 
LAVS  =  lever  arm  for  vertical  stabilizer 
V  =  0(x)  =  airspeed  in  knots 
CLATR  =  vertical  stabilizer  lift  curve  slope 
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TEFPA  =  vertical  stabilizer  equivalent  flat 

plate  area 
TPP  =  added  parasite  power  due  to  vertical 

stabilizer 
ALTR  =  vertical  stabilizer  angle  of  attack  in 

radians 
ALTRDEG  =  vertical  stabilizer  angle  of  attack  in 

degrees 
VSAR  =  vertical  stabilizer  aspect  ratio 
SPAN  =  vertical  stabilizer  span 
S  =  vertical  stabilizer  planform  area 
VERSTAB  =  equivalent  power  of  vertical 

stabilizer 
VITRl  =  tail  rotor  induced  power  with  vertical 

stabilizer 
TRT  =  tail  rotor  thrust  with  vertical  stabilizer 
PITRFI(x,x)  =  tail  rotor  induced  power  with 
vertical  stabilizer  in  forward 
flight 
PTTRVSF(x,x)  =  tail  rotor  total  power  with 

vertical  stabilizer  in  forward 
flight 
TTM(x,x)  =  tail  rotor  blade  tip  mach  number 

7 .   Chapter  Five  Variables 

BLTW  =  main  rotor  twist  angle  in  degrees 
THT  =  main  rotor  twist  angle  in  radians 
AMAX  =  stall  angle  of  attack  for  main  rotor 

blades  in  degrees 
AM  =  stall  angle  of  attack  for  main  rotor  blades 

in  radians 
DA  =  disk  area 

VT  =  main  rotor  tip  velocity 
0(x)  =  airspeed  in  knots 
MU3  =  maximum  advance  ratio 
AL90(x,x)  =  blade  angle  of  attack  at  90  degree 

position 
AL270(x,x)  =  blade  angle  of  attack  at  270  degree 

position 
MTIP  =  main  rotor  blade  tip  mach  number 
M90(x,x)  =  main  rotor  blade  mach  number  *at  90 

degree  position 
MCRIT(x,x)  =  main  rotor  blade  critical  mach 

number 
MD  =  main  rotor  blade  critical  mach  number  for 

drag  divergence 
ALTl  =  specification  hover  ceiling 
CTHC  =  thrust  coefficient  at  hover  ceiling 
TIPHC  =  tiploss  at  hover  ceiling 
PIHC  =  main  rotor  induced  power  at  hover  ceiling 
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POHC  =  main  rotor  profile  power  at  hover  ceiling 
PINIGEH  =  induced  power  to  HIGE  at  hover  ceiling 
PTTI  =  total  power  to  HIGE  at  hover  ceiling 
TRTH  =  tail  rotor  thrust  at  hover  ceiling 
CTTRHC  =  tail  rotor  thrust  coefficient  at  hover 

ceiling 
TIPTRHC  =  tail  rotor  tiploss  at  hover  ceiling 
DELTA  =  pressure  ratio 
THETA  =  temperature  ratio 
PITRHC  =  tail  rotor  induced  power  at  hover 

ceiling 
POTRHC  =  tail  rotor  profile  power  at  hover 

ceiling 
PTTRHC  =  tail  rotor  total  power  at  hover  ceiling 
RSHP  =  maximum  rotor  shaft  horsepower 
STYPE  =  s-type  inlet 
ICESHD  =  ice  shield  inlet 
STRTIN  =  straight  in  inlet 
INLET  =  total  inlet  losses 
PINLET  =  percent  loss  due  to  inlets 
RSHPl  =  added  horsepower  for  inlets 
RSHPIA  =  total  horsepower  required  with  inlets 
PS  =  percent  loss  due  to  partical  separator 
BARR  =  barrier  filter 
PARTSEP  =  partical  separator 
EAPS  =  total  losses  due  to  engine  air  partical 

separators 
REAPS  =  percent  loss  due  to  eaps 
RSHP2  =  added  horsepower  for  eaps 
RSHP2A  =  total  power  required  with  eaps 
HDIF  =  heat  diffusers 
INRED  =  infra-red  suppresser 
EEDS  =  total  losses  due  to  engine  exhaust 

diffusers 
PEEDS  =  percent  loss  due  to  eeds 
RSHP3  =  added  horsepower  for  eeds 
RSHP3A  =  total  power  required  with  eeds 
LOSS  =  losses  for  one  engine 
LOSSA  =  losses  for  two  engines 
LOSSB  =  losses  for  three  engines 
ESHP  =  engine  shaft  horsepower 

8 .   Chapter  Six  Variables 

ENG  =  number  of  engines  competing  for  selection 

MDT  =  maintenance  down  time 

MTBF  =  mean  time  between  failure 

MTBR  =  mean  time  between  replacement 

DW(x)  =  engine  dry  weight 

SHP(x)  =  engine  shaft  horsepower  at  military 

SFC(x)  =  specific  fuel  consumption  at  military 
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IC(x)  =  initial  cost 

OC(x)  =  operating  cost  per  hour 

PMA(x)  =  preventative  maintenance  per  engine  per 

hour 
MTBMA(x)  =  mean  time  between  maintenance  action 
AFL  =  average  flight  hours  per  year 
SL  =  aircraft  service  life 
TAV  =  average  flight  hour  per  flight 
YM(x)  =  engine  yearly  maintenance  cost 
YO(x)  =  engine  yearly  operating  cost 
NRPL(x)  =  number  of  engine  replacements 
LC(x)  =  engine  life-cycle  cost 
RD(x)  =  engine  research  and  development  costs 
AVAIL (x)  =  engine  availability 
MAINT(x)  =  engine  maintainability 
RELY(x)  =  engine  reliability 
RC(x)  =  replacement  costs 
SV(x)  =  salvage  costs 
EWT(x)  =  installation  weight 
TRWT  =  transmission  weight 
TRPWR  =  transmission  power  rating 
NCT,NPIN,NPO,  etc.  =  N  means  new  values  of  these 

variables 

9 .   Chapter  Seven  Variables 

SFC(x)  =  specific  fuel  consumption 

SHP(x)  =  shaft  horsepower 

WDOTF(x)  =  fuel  flow  in  pounds  per  hour 

BETAH  =  slope  of  the  fuel  flow  versus  horsepower 

curve 
ALPHAH  =  zero  horsepower  intercept 
DELTA  =  pressure  ratio 
THETA  =  temperature  ratio 
TEMP  =  specification  temperature 
PHANTOM (x)  =  phantom  horsepower 
MRV  =  maximum  range  velocity 
FFR  =  maximum  range  fuel  flow 
MRP  =  maximum  range  referred  horsepower 
MRPl  =  maximum  range  horsepower 
MEV  =  VMIN  =  maximum  endurance  velocity 
PMIN  =  SHP  for  maximum  endurance 
ERSHPR  =  maximum  endurance  referred  horsepower 
EFFR  =  maximum  endurance  fuel  flow 
CRUISEV  =  cruise  velocity 
CRUPWR  =  cruise  power 
CRUFFR(X)  =  cruise  fuel  flow 
MAXRG  =  specification  maximum  range 
TFUEL  =  total  fuel  required 
NGW2  =  new  gross  weight  with  required  fuel 
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10.  Chapter  Eight  Variables 

PDGW  =  percent  difference  between  specification 

and  design  gross  weight 
EWl  =  empty  weight  as  of  chapter  five 
EW2  =  empty  weight  as  of  chapter  seven 
PTFl  =  hover  power  for  design  gross  weight 
PDGW2  =  percent  difference  in  design  gross 

weight 
DIF  =  difference  between  specification  and 

design  gross  weight 
LC  =  useful  load  plus  DIF 
FW  =  total  fuel  weight  plus  DIF 
NRANGE  =  range  with  FW  fuel  weight 
NGW3  =  new  selected  gross  weight 
T2FUEL  =  new  selected  fuel  weight 
MCSHP  =  MCS  =  maximum  rate  of  climb  horsepower 
MCV  =  maximum  rate  of  climb  airspeed 
WERT  =  maximum  rate  of  climb  in  feet  per  minute 
LS  =  power  available  at  sea  level  with  partial 

installation  losses 
PTASL  =  total  power  available  at  sea  level  with 

all  losses 
D  =  rotor  diameter 

H  =  rotor  height  above  the  ground  at  HIGE 
PA  =  power  available  at  altitude 
PR(x)  =  power  required  at  altitude 
THETA  =  temperature  ratio 
DELTA  =  pressure  ratio 

AL(x)  =  altitude  in  feet  for  section  8.3 
MHA  =  maximum  hover  altitude 
ALA(x)  =  altitude  in  feet  for  section  8.4 
VEFPA  =  vertical  equivalent  flat  plate  area 
SC  =  service  ceiling 
BW  =  body  width 
BH  =  body  height 

11.  Chapter  Nine  Variables 

All  variables  are  the  same  as  above. 

12 .  Chapter  Ten  Variables 

C(X)  =  component  cost 

CE(x)  =  total  cost 

IFR  =  inflation  rate 

Q  =  quantity  to  be  produced 
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B.   MAIN  PROGRAM 

1  ******************************************************** 

MAIN  PROGRAM  ' 

5  '  ******************************************************* 

10  G=0:ZZ=0:Z=0 

20  IF  CH3=3  THEN  DIM  A (1100) : CH3=0 

3  0  IF  DIM1=1  THEN  GOTO  54  0  ELSE 

4  0   KEY  OFF 

50   SCREEN  1,0 

60   COLOR  8,1 

7  0   FOR  I  =  1  TO  2 

80   IF  I  =  1  THEN  FILL  =  11  ELSE  FILL  =  12 

90   IF  I  =  1  THEN  EDGE  =  9  ELSE  EDGE  =  10 

100   IF  I  =  1  THEN  Xl=104:  X2=82  ELSE  Xl=106:  X2=84 

110   IF  I  =  1  THEN  Yl=86:  Y2=132  ELSE  Yl=84:  Y2=130 

120   '  "H" 

13  0   DRAW  "C=EDGE;BM=X1;,=Y1;U3  0R4D12R12U12R4D3  0L4U12" 

140   DRAW  "L12D12L4BE1P=FILL; ,=EDGE;" 

150   '  "E" 

160   Xl=  XI  +  26 

170   DRAW  "C=EDGE;BM=X1;,=Y1;U30R20D4L16D9R8D4L8D9R16D4L20 

BE1P=FILL; , =EDGE ; " 

180   •  "L" 

190   Xl=  XI  +  26 

200   DRAW  "C=EDGE;BM=X1; ,=Y1;U30R4D26R16D4L20BE1P=FILL;  ,= 

EDGE ; " 

210   •  "0" 

220   Xl=  XI  +  26  -  — 

230   DRAW  "C=EDGE;BM=X1;,=Y1;U30R20D30L20BR4BU4U22R12D22L1 

2BG1P=FILL; ,=EDGE;" 

24  0   'NEXT  LINE 

250   '  "D" 

2  60   DRAW  "C=EDGE;BM=X2;,=Y2;U3  0R16f5D2  0g5L16BR4BU4U2  2R12D 
22L12BG1P=FILL; ,=EDGE;" 

270   '  "E" 

280   X2=  X2  +  26 

290   DRAW  "C=EDGE;BM=X2; ,=Y2;U30R20D4L16D9R8D4L8D9R16D4L 

2  0BE1P=FILL; ,=EDGE;" 
300   '  "S" 

310  X2=  X2  +  26 

32  0  DRAW  "C=EDGE;BM=X2; ,=Y2;BU1U2E2R16H19U4E2R2  0F2D2G2" 

330  DRAW  "L16F19D4G2L20H2BR2BU1P=FILL; ,=EDGE;" 

340  •  "I" 

350  X2=  X2  +  30 

3  60  DRAW  "C=EDGE;BM=X2; ,=Y2;U3  0R4D3  0L4BE1P=FILL;,=EDGE;" 
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370   '  "G"380   X2=  X2  +  14 

390   DRAW  "C=EDGE;BM=X2;,=Y2;U30R20D4L16D22R12U4L4U4R8" 

400   DRAW  "D12L20BE1P=FILL; ,=EDGE;" 

410   '  "N" 

420   X2=  X2  +  26 

430   DRAW  "C=EDGE;BM=X2;;=Y2;U30R4F12U12R4D30L4H12D12L 

4BE1P=FILL; ,=EDGE;" 

440  NEXT  I 

450  FOR  1=1  TO  2000:NEXT  I:G=1+G 

460  COLOR  4,1: IF  G=l  THEN  GOTO  70  ELSE  IF  G=2  THEN  COLOR 

1,1: GOTO  70  ELSE  GOTO  480 

470  CLEAR, ,1500 

480  SCREEN  2: SCREEN  0 , 1 : COLOR  15,1 

490  DIM  A(llOO) ,W(15,20) ,GW(20) ,WE(20) ,PINF(2,60) ,POF(2,60 

) ,PPF(2,60) ,PTF(2,60) ,TM(2,20),O(20) ,W2A(20) ,W2B(20) ,W6A(2 

0) ,W6B(20) ,W6C(20) ,PT(20) ,FM(20) ,DL(20) ,AL90(2,60) ,AL270(2 

,60) ,PITRF(2,60) ,POTRF(2,60) ,PTTRF(2,60) , VERSTAB (2 , 60) , PTT 

RVSF (2,20), PITRFl (2,20) 

500  DIM  PTT(2,60) ,TTM(2,20) ,TRT(2,20) ,L(2,20) ,M90(2,60) ,MC 

RIT(2,60) ,PS(2,60) ,PM(2,60) ,RHO(60) ,PINF1(60) ,POF1(60) , PTF 

1(60) ,PITR1(60) ,POTR1(60) ,PTTR1(60) ,PR(60) ,PPF1(60) , PITRF2 

(60) ,P0TRF2 (60) ,PTTRF1(60) ,PS1(60) ,PM1(60) ,M901(60) ,MCRIT1 

(60) 

510  DIM  PITRFI(2,20) ,AL901(60) ,AL2701(60) ,PTT1(60) ,ALA(60) 

,C(20),CE(20) ,PTF5(2,20) ,ANG(200) ,AL(60) ,SAVEP(21) ,SAVEV(2 

1) ,RSHP(5,20) ,POFA(2,20) ,PPFA(2,20) ,PTFA(2,20) ,PITRFA(2,20 

) ,POTRFA(2,20) , PTTRFA(2 , 20) ,SAVEPS(21) ,SAVEPM(21) 

520  OPTION  BASE  0 

530  DIM1=1 

54  0  '  DEFINE  CONSTANTS 

550  ' 

560  PI  =  3.1415927# 

570  RHO  =  2.37691E-03 

580  M(l)  =  1116.89 

590  LOCATE  1,1,0 

600  ' 

610  ' 

620  ' 

630'  ******   MAIN  MENU   ****** 

640  KEY(5)  ON 

650  ON  KEY (5)  GOSUB  670 

660  GOTO  680 

670  CLEAR, ,1500: GOTO  490 

680  ' 

690  CLS:  PRINT  ••~C=ALL/"  :  PRINT  "~L=HELO/" 

700  COLOR  1,1,1: CLS: LOCATE  23, 1,0: PRINT 

"~W=MAINMENU/": LOCATE  ,, 0 : INPUT; "", Yl : CLS : COLOR  15, 1,1: IF 

Yl=ll  THEN  GOSUB  740  ELSE  IF  Yl=12  GOTO  1860 

710  CLS: PRINT  "~W=LOADNOTE/" : GOTO  72  0 

720  IF  Yl=l  THEN  CHAIN  "CHAP1",,ALL  ELSE  IF  Yl=2  THEN 

CHAIN  "CHAP2",,ALL  ELSE  IF  Yl=3  THEN  CHAIN  "CHAP3",,ALL 
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******   DATA  INPUT  FROM  FILE  DISK   ****** 


ELSE  IF  Yl=4  THEN  CHAIN  "CHAP4",,ALL  ELSE  IF  Yl=5  THEN 
CHAIN  " CHAPS ",, ALL  ELSE 

730  IF  Yl=6  THEN  CHAIN  "CHAP6",,ALL  ELSE  IF  Yl=7  THEN 
CHAIN  "CHAP?",, ALL  ELSE  IF  Yl=8  THEN  CHAIN  "CHAP8",,ALL 
ELSE  IF  Yl=9  THEN  CHAIN  "CHAP9",,ALL  ELSE  IF  Yl=10  THEN 
CHAIN  "CHAPIO", ,ALL 
740 
750 
760 
770 
780 

790  CLS: LOCATE  23, 1,0: PRINT  "~W=DISK/" : GOSUB  1030: LOCATE 
25,27,0: PRINT  "  " : OPEN 

"B:DATA1"  FOR  INPUT  AS  #1: INPUT  #1,  Z : FOR  1=1  TO  10: INPUT 
#1,  LL(I) :NEXT  I:CLOSE  #1 

800  LOCATE  14 , 20 , 1 : PRINT  "THE  LAST  CHAPTER  DATA  ENTERED 
IS :"; Z : LOCATE  16, 20 , 1: INPUT  "WHICH  CHAPTER  DATA  DO  YOU 
WANT  ENTERED" ;ZB: PRINT  "~C=ALL/" : PRINT  "~W=LOADDATA/" : IF 
ZB=2  THEN  GOTO  82  0  ELSE 

810  IF  ZB=3  GOTO  840  ELSE  IF  ZB=4  GOTO  900  ELSE  IF  ZB=5 
GOTO  1070  ELSE  IF  ZB=6  GOTO  1220  ELSE  IF  ZB=7  THEN  GOTO 
1420  ELSE  IF  ZB=8  GOTO  1640 

82  0  OPEN  "B:DATA2"  FOR  INPUT  AS  #1:F0R  1=1  TO  18 : INPUT  #1, 
A (I) :NEXT  I: CLOSE  #1 

830  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) :OMEGA= 
A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 
LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 
=A(18) : RETURN  700 

840  OPEN  "B:DATA3"  FOR  INPUT  AS  #1:F0R  1=1  TO  LL(1):INPUT 
#1,  A(I) :NEXT  I:CLOSE  #1 

850  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) : OMEGA= 
A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 
LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 
=A(18) :TIPL0SS=A(19) :PIN=A(20) :P0=A(21) :PT=A(22) :HP=A(23) : 
PERINDP=A(24) 

860  V=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V=V+1 : Q=J+24 :W( (Q- 
24) ,I)=A(V) :NEXT  J,I:FOR  1=1  TO 

3:W2A(I)=A(I+69) :W2B (I) =A(I+72) :W6A(I) =A(I+75) :W6B(I)=A(I+ 
78) :W6C(I)=A(I+81) :NEXT 

I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) : DL(N-l) =A(88) :FM(N- 
1)=A(89) :FL=A(90) :IRLG=A(91) 

87  0  NW=A(92) : PERDIFW=A(93 ) : PERDIFP=A(94) :Y=A(95) : FUEL=A 
(96) :PEOPLE=A(97) :UL=A(98) : SPECIAL=A(99) :ENGINE=A (100) :ZZ= 
A(lOl)  :AB=A(102)  :GR=A(103)  :RH=A(104)  :H=A(105)  :D=A(106)  : PIN 
I=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO (2 ) =A(111) :MM= 
A(112) :M(2)=A(113) 

880  CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) : 
MAXF2=A(118) :MAXCRU1=A(119) :ALT=A(120) :TEMP=A(121) :LL=A(12 
2) :G=12  3:LL=LL+l:FOR  1=1  TO  LL: 0 (I) =A (G) : G=G+1 :NEXT 
I : G=G+1+LL: G1=G+1+2*LL: G2=G1+1+2*LL: G3=G2+1+2*LL: 04=03+1+2 
*LL 


58 


890  FOR  1=1  TO  2:F0R  J=l  TO  LL: PINF (I , J) =A (G) : POP (I , J) 

=A(G1) :PPF(I,J)=A(G2) : PTF (I , J) =A(G3 ) :TM(I , J) =A(G4) :G=G+1:G 

1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J,I:CLOSE  #1:LL=LL- 

1: RETURN  700 

900  OPEN  "B:DATA4"  FOR  INPUT  AS  #1:F0R  1=1  TO  LL(2):INPUT 

#1,  A(I) :NEXT  IrCLOSE  #1 

910  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) : OMEGA= 

A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 

LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 

=A(18) :TIPL0SS=A(19) :PIN=A(20) :P0=A(21) :PT=A(22) :HP=A(23) : 

PERINDP=A(24) 

920  V3=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V3=V3+1 :Q=J+24 : W( (Q- 

24) ,I)=A(V3) :NEXT  J,I:FOR  1=1  TO  3 :W2A(I) =A(I+69) : W2B (I) 

=A(I+72) :W6A(I)=A(I+75) : W6B (I) =A(I+78) : W6C (I) =A(I+81) :NEXT 

I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) : DL(N-l) =A(88) :FM(N-1)=A( 

89) :FL=A(90) :IRLG=A(91) 

930  NW=A(92) : PERDIFW=A(93 ) : PERDIFP=A(94) :Y=A(95) : FUEL= 

A(96) :PEOPLE=A(97) :UL=A(98) : SPECIAL=A(99) : ENGINE=A(100) :ZZ 

=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 

NI=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO (2) =A( 111) :MM 

=A(112) :M(2)=A(113) 

94  0  CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 

F2=A(118) :MAXCRU1=A(119) :ALT=A(12  0) :TEMP=A(121) :LL=A(12  2) : 

TR=A(123) :TRPM=A(124) :OMEGAT=A(125) :TCDO=A(126) :BT=A(127) : 

TAR=A(128) :TRC=A(129) :TTR=A(130) :CTTR=A(131) :TRB=A(132) :SI 

G]y[AT=A(133)  :V=A(134) 

950  SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A (138) : LAVS=A 

(139) :VSAR=A(140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 

) :CLATR=A(145) :ALTR=A(146) : ALTRDEG=A(147) :TL=A(148) :G=149: 

LL=LL+1:F0R  1=1  TO  LL:0 (I) =A(G) :G=G+1 :NEXT  I : G=G+1+LL:G1= 

G+1+2*LL:G2=G1+H-2*LL     _ 

960  G3=G2+l+2*LL:G4=G3+l+2*LL:FOR  1=1  TO  2 : FOR  J=l  TO 

LL:PINF(I,J)=A(G) : POF(I, J) =A(G1) : PPF (I, J) =A(G2) :PTF(I,J)=A 

(G3) :TM(I,J)=A(G4) :G=G+1:G1=G1+1:G2=G2+1: G3=G3+1 :G4=G4+1 :N 

EXT  J, I 

970  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : PITR(I) =A(G4) : 

P0TR(I)=A(G5) :PTTR(I)=A(G6) : CLTR (I) =A (G7) : G4=G4+1 : G5=G5+1 : 

G6=G6+l:G7=G7+l:NEXT  I : G8=G7+l+2* (LL-1) : G9=G8+H-2* (LL-1) 

980  FOR  1=1  TO  2:F0R  J=2  TO  LL: PITRF (I , J) =A(G7) : POTRF (I , J) 

=A(G8) :PTTRF(I,J)=A(G9) : G7=G7+1 : G8=G8+1 : G9=G9+1 : NEXT  J, I: 

G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+2*LL 

:G14=G13+1+2*LL 

990  FOR  1=1  TO  2:F0R  J=l  TO  LL:TTM(I , J) =A(G9) : TRT (I , J) = 

A(GIO) :L(I,J)=A(G11) :VERSTAB(I,J)=A(G12) : PTTRVSF (I , J) =A (Gl 

3) :PITRFI(I,J)=A(G14) :G9=G9+1:G10=G10+1 :G11=G11+1: G12=G12+ 

1:G13=G13+1:G14=G14+1:NEXT  J, I : LL=LL-1 : CLOSE  #1:RETURN  700 

1000  '  ***  PAUSE  SUBROUTINE   *** 

1010  ' 

1020  ' 

1030  IF  AP=1  THEN  LOCATE  25,79,0  ELSE  LOCATE  25, 27 , 0 : PRINT 

"press  any  key  to  continue" 
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1040  A$=INKEY$:IF  A$=""  THEN  1030 
1050  RETURN 
1060  LOCATE  1,1,0 

1070  OPEN  "B:DATA5"  FOR  INPUT  AS  #1:F0R  1=1  TO  LL(3):INPUT 
#1/A(I):NEXT  I : CLOSE  #1 

108  0  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) : OMEGA= 
A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 
LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 
=A(18) :TIPL0SS=A(19) :PIN=A(20) :P0=A(21) :PT=A(22) :HP=A(23) : 
PERINDP=A(24) 

1090  V3=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V3=V3+1 : Q=J+24 :W( (Q- 
24) ,I)=A(V3) :NEXT  J,I:FOR  1=1  TO  3 : W2A(I) =A(I+69) : W2B (I) 
=A(I+72) :W6A(I)=A(I+75) :W6B (I) =A(I+78) : W6C (I) =A(I+81) :NEXT 
I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) : DL(N-l) =A(88) :FM(N- 
1)=A(89) :FL=A(90) :IRLG=A(91) 

1100  NW=A(92) :PERDIFW=A(93) : PERDIFP=A(94) :Y=A(95) : FUEL= 
A(96) :PEOPLE=A(97) :UL=A(98) : SPECIAL=A(99) : ENGINE=A(100) :ZZ 
=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 
NI=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO (2 ) =A( 111) :MM 
=A(112) :M(2)=A(113) 

1110  CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 
F2=A(118) :MAXCRU1=A(119) :ALT=A(120) :TEMP=A(121) :LL=A(122) : 
TR=A(123) :TRPM=A(124) : OMEGAT=A(12  5) :TCDO=A(126) :BT=A(127) : 
TAR=A(128) :TRC=A(129) :TTR=A(130) :CTTR=A(131) :TRB=A(132) :SI 
GMAT=A(13  3) :V=A(134) 

112  0  SPAN=A(13  5) :S=A(136) :SWP=A(137) : SWEEP=A(138) : LAVS=A 
(139) :VSAR=A(140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 
) :CLATR=A(145) :ALTR=A(146) : ALTRDEG=A(147) :TL=A(148) ; BLTW=A 
(149) :CM=A(150) :THT=A(151) :AM=A(152) :AMAX=A(153) :PINIGE=A( 
154) :PTTI=A(155) 

1130  RSHP=A(156) : STYPE=A(157) : ICESHD=A(158) : STRTIN=A(159) : 
INLET=A(160) :BARR=A(161) : PARTSEP=A(162) :EAPS=A(163) :HDIF=A 
(164) :INRED=A(165) :EEDS=A(166) :RSHP1=A( 167) :RSHP2=A(168) :R 
SHP3=A(169) :RSHP1A=A(17  0) :RSHP2A=A(171) :RSHP3A=A(172) : ESHP 
=A(173) :LOSS=A(174) 

1140  G=17  5:LL=LL+l:FOR  1=1  TO  LL: O (I) =A(G) : G=G+1 :NEXT 
I:G=G+1+LL:G1=G+1+2*LL:G2=G1+1+2*LL 

1150  G3=G2+l+2*LL:G4=G3+l+2*LL:FOR  1=1  TO  2 : FOR  J=l  TO 
LL:PINF(I,J)=A(G) : POF (I , J) =A(G1) : PPF (I , J) =A(G2 ) :PTF(I,J)=A 
(G3) :TM(I,J)=A(G4) : G=G+1 : G1=G1+1 : G2=G2+1 : G3=G3+1 : G4=G4+1 :N 
EXT  J, I 

1160  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : PITR(I) =A(G4) : 
P0TR(I)=A(G5) :PTTR(I)=A(G6) : CLTR(I) =A(G7) :G4=G4+1 : G5=G5+1: 
G6=G6+1:G7=G7+1:NEXT  I : G8=G7+l+2* (LL-1) :G9=G8+l+2* (LL-1) 
1170  FOR  1=1  TO  2:F0R  J=2  TO  LL: PITRF (I , J) =A(G7) : POTRF 
(I,J)=A(G8) :PTTRF(I,J)=A(G9) : G7=G7+1:G8=G8+1 : G9=G9+1 :NEXT 
J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1180  FOR  1=1  TO  2:F0R  J=l  TO  LL:TTM(I , J) =A(G9) :TRT (I , J) 
=A(G10) :L(I,J)=A(G11) :VERSTAB(I,J)=A(G12) : PTTRVSF (I, J) =A(G 
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13) :PITRFI(I,J)=A(G14) : G9=G9+1: G10=G10+1 : G11=G11+1: G12=G12 

+l:G13=G13+l:G14=G14+l:NEXT  J, I 

1190  G15=G14+l:G16=G15+l+2*LL:G17=G16+l+2*LL:G18=G17+l+2* 

LL:G19=G18+1+2*LL:G2  0=G19+1+2*LL:G21=G2 0+1+2 *LL 

1200  FOR  1=1  TO  2:F0R  J=l  TO  LL: AL90 (I , J) =A(G15) : AL270 

(I,J)=A(G16) :M90(I,J)=A(G17) :MCRIT (I , J) =A(G18) :PS(I,J)=A(G 

19) :PM(I,J)=A(G20) : PTT (I , J) =A(G21) :G15=G15+1 :G16=G16+1 : G17 

=G17+1 : G18=G18+1:G19=G19+1:G2  0=G2 0+1 :G21=G2 1+1: NEXT 

J,I:LL=LL-1:CL0SE  #1: RETURN  700 

1210  RETURN 

1220  OPEN  "B:DATA6"  FOR  INPUT  AS  #1:F0R  1=1  TO  LL(4):INPUT 

#1,  A(I):NEXT  I:CLOSE  #1 

1230  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) : OMEGA= 

A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 

LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 

=A(18) :TIPL0SS=A(19) :PIN=A(20) :P0=A(21) :PT=A(22) :HP=A(23) : 

PERINDP=A(24) 

1240  V3=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V3=V3+1 :Q=J+24 :W( (Q- 

24) ,I)=A(V3) :NEXT  J,I:FOR  1=1  TO  3 :W2A(I) =A(I+69) : 

W2B(I)=A(I+72) :W6A(I)=A(I+75) :W6B(I) =A(I+78) :W6C (I) =A(I+81 

) :NEXT  I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) :DL(N- 

1)=A(88) :FM(N-1)=A(89) :FL=A(90) :IRLG=A(91) 

1250  NW=A(92) : PERDIFW=A(93 ) : PERDIFP=A(94) :y=A(95) : FUEL= 

A(96) :PEOPLE=A(97) :UL=A(98) : SPECIAL=A(99) : ENGINE=A(100) :ZZ 

=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 

NI=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO (2) =A(111) :MM 

=A(112) :M(2)=A(113) 

12  60  CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 

F2=A(118) :MAXCRU1=A(119) :ALT=A(120) :TEMP=A(121) :LL=A(122) : 

TR=A(123) :TRPM=A(124) : 0MEGAT=A(125) :TCDO=A(126) :BT=A(127) : 

TAR=A(128) :TRC=A(129) :TTR=A(130) :CTTR=A(131) :TRB=A(132^: SI 

GMAT=A(13  3) :V=A(134) 

1270  SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A(138) :LAVS=A 

(139) :VSAR=A(140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 

) :CLATR=A(145) :ALTR=A(146) : ALTRDEG=A(147) :TL=A(148) : BLTW=A 

(149) :CM=A(150) :THT=A(151) :AM=A(152) :AMAX=A(153) :PINIGE=A( 

154) :PTTI=A(155) 

1280  RSHP=A(156) : STYPE=A(157) : ICESHD=A (158 ) : STRTIN=A(159) : 

INLET=A(160) :BARR=A(161) : PARTSEP=A(162 ) :EAPS=A(163) :HDIF=A 

(164) :INRED=A(165) :EEDS=A(166) :RSHP1=A(167) :RSHP2=A (168) :R 

SHP3=A(169) :RSHP1A=A(170) :RSHP2A=A(171) :RSHP3A=A(172) :ESHP 

=A(173) :LOSS=A(l74) 

1290  ENG=A(175) :EN=A(176) :TRPWR=A(177) :TRWT=A(178) :NGW=A 

(179) :NPT=A(180) :NDL=A(181) :NFM=A(182) :NPERINDP=A(183) :NPE 

RDIFP=A(184) :NPERDIFW=A(185) :G=186:LL=LL+l:FOR  1=1  TO 

LL:0(I)=A(G) :G=G+1:NEXT  I :G=G+1+LL:G1=G+1+2*LL:G2=G1+1 

+2*LL 

1300  G3=G2+l+2*LL:G4=G3+l+2*LL:FOR  1=1  TO  2 : FOR  J=l  TO 

LL:PINF(I,J)=A(G) : POF (I , J) =A(G1) : PPF(I, J) =A(G2) :PTF(I,J)=A 

(G3) :TM(I,J)=A(G4) :G=G+1 :G1=G1+1 : G2=G2+1 :G3=G3+1 :G4=G4+1 :N 

EXT  J,  I 
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1310  G5=G4+2:G6=G5+2:G7=G6+2:F0R  1=1  TO  2 : PITR(I) =A(G4) 
:P0TR(I)=A(G5) :PTTR(I)=A(G6) : CLTR (I) =A(G7) : G4=G4+1 : G5=G5+1 
:G6=G6+l:G7=G7+l:NEXT  I : G8=G7+l+2* (LL-1) :G9=G8+l+2* (LL-1) 
1320  FOR  1=1  TO  2:F0R  J=2  TO  LL: PITRF (I , J) =A(G7) : POTRF 
(I,J)=A(G8) :PTTRF(I,J)=A(G9) :G7=G7+1: G8=G8+1:G9=G9+1 :NEXT 
J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1330  FOR  1=1  TO  2:F0R  J=l  TO  LL:TTM(I , J) =A(G9) :TRT (I , J) 
=A(G10) :L(I,J)=A(G11) :VERSTAB(I,J)=A(G12) : PTTRVSF (I , J) =A (G 
13) :PITRFI(I,J)=A(G14) :G9=G9+1 :G10=G10+1 : G11=G11+1 : G12=G12 
+1:G13=G13+1:G14=G14+1:NEXT  J, I 

1340  G15=G14+l:G16=G15+l+2*LL:G17=G16+l+2*LL:G18=G17+l+2* 
LL:G19=G18+1+2*LL:G2  0=G19+1+2*LL:G21=G2 0+1+2 *LL 
1350  FOR  1=1  TO  2:F0R  J=l  TO  LL: AL90 (I , J) =A (G15) : AL270 
(I,J)=A(G16) :M90(I,J)=A(G17) :MCRIT (I , J) =A(G18) :PS(I,J)=A(G 
19) :PM(I,J)=A(G20) :PTT(I,J)=A(G21) : G15=G15+1 : G16=G16+1 :G17 
=G17+1 : G18=G18+1:G19=G19+1:G2  0=G2 0+1 :G21=G2 1+1: NEXT  J, I: 
LL=LL-1 

13  60  G2  2=G21+1:G2  3=G2  2+1+ENG:G2  4=G2  3+1+ENG:G2  5=G2  4+1+ENG: 
G2  6=G2  5+1+ENG:G2  7=G2  6+1+ENG:G2  8=G2  7+1+ENG:G2  9=G2  8+1+ENG:G3 
0=G29+1+ENG:G31=G3  0+1+ENG:G3  2=G31+1+ENG:G3  3=G3  2+1+ENG:G3  4= 
G3  3+1+ENG:G3  5=G3  4+1+ENG:G3  6=G3  5+1+ENG:G3  7=G3  6+1+ENG:G3  8=G3 
7+1+ENG 

137  0  G3  9=G3  8+1+ENG:G4  0=G3  9+1+ENG:G41=G4  0+1+ENG 

1380  FOR  1=1  TO  ENG:DW(I)=A(G22) :SHP(I)=A(G23) :SFC(I)=A 

(G24) :IC(I)=A(G25) : OC (I) =A(G26) : PMA(I) =A(G27) :MTBMA(I) =A(G 

28) :MDT(I)=A(G29) :MTBF (I) =A(G30) :MTBR(I) =A(G31) :RC(I)=A(G3 

2) :SV(I)=A(G33) : AVAIL(I) =A(G34) :RELY (I) =A(G35) :MAINT(I)=A( 

G36) 

1390  LC(I)=A(G37) : EWT (I) =A(G38 ) : YO (I) =A (G39 ) : YM(I) =A(G40) : 

NRPL(I)=A(G41) :G22=G22+1:G2  3=G2  3+1:G2  4=G2  4+1:G2  5=G2  5+1:G2  6 

=G2  6+1:G27=G2  7+1:G2  8=G2  8+1:G29=G29+1:G3  0=G3  0+1:G31=G31+1:G 

32=G3  2+l:G3  3=G3  3+l:G3  4=G34+l:G35=G3  5+l:G3  6=G3  6+l 

14  00  G37=G3  7+1:G3  8=G3  8+1:G3  9=G3  9+1:G4  0=G4  0+1:G41=G41+1: 
NEXT  I: CLOSE  #1: RETURN  7  00 

1410  RETURN 

142  0  OPEN  "B:DATA7"  FOR  INPUT  AS  #1:F0R  1=1  TO  LL (5): INPUT 

#1,  A (I) : NEXT  I: CLOSE  #1 

14  3  0  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4 ) :R=A(5) : OMEGA= 

A (6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 

LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 

=A(18) :TIPL0SS=A(19) :PIN=A(20) :P0=A(21) :PT=A(22) :HP=A(23) : 

PERINDP=A(24) 

1440  V3=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V3=V3+1 :Q=J+24 : W( (Q- 

24) ,I)=A(V3) :NEXT  J,I:FOR  1=1  TO  3 :W2A(I) =A(I+69) : 

W2B(I)=A(I+72) :W6A(I)=A(I+75) :W6B (I) =A(I+78) :W6C (I) =A(I+81 

) :NEXT  I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) :DL(N-1)=A(88) :FM  ■ 

(N-1)=A(89) :FL=A(90) :IRLG=A(91) 

1450  NW=A(92) : PERDIFW=A (93 ) : PERDIFP=A(94) :Y=A(95) :FUEL= 

A (96) :PEOPLE=A(97) :UL=A(98) : SPECIAL=A(99) : ENGINE=A ( 100) :ZZ 

=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 
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NI=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO (2 ) =A(111) :MM 
=A(112) :M(2)=A(113) 

14  6  0  CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 
F2=A(118) :MAXCRU1=A(119) :ALT=A(12  0) :TEMP=A(121) :LL=A(122) : 
TR=A(123) :TRPM=A(124) : OMEGAT=A(12  5) :TCDO=A(126) :BT=A(127) : 
TAR=A(128) :TRC=A(129) :TTR=A(130) :CTTR=A(131) :TRB=A(132) :SI 
GMAT=A(13  3) :V=A(134) 

1470  SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A(138) : LAVS=A 
(139) :VSAR=A(140) ; BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 
) :CLATR=A(145) :ALTR=A(146) : ALTRDEG=A(147) :TL=A(148) : BLTW=A 
(149) :CM=A(150) :THT=A(151) :AM=A(152) :AMAX=A(153) :PINIGE=A( 
154) :PTTI=A(155) 

1480  RSHP=A(156) : STYPE=A(157) : ICESHD=A(158) : STRTIN=A(159) : 
INLET=A(160) :BARR=A(161) : PARTSEP=A(162) :EAPS=A(163) :HDIF=A 
(164) :INRED=A(165) :EEDS=A(166) :RSHP1=A(167) :RSHP2=A(168) :R 
SHP3=A(169) :RSHP1A=A(170) :RSHP2A=A(171) :RSHP3A=A(172) :ESHP 
=A(173) :LOSS=A(174) 

1490  ENG=A(175) :EN=A(176) : TRPWR=A(177) :TRWT=A(178) : NGW=A 
(179) :NPT=A(180) :NDL=A(181) :NFM=A(182) :NPERINDP=A (18  3 ) :NPE 
RDIFP=A(184) :NPERDIFW=A(185) :FOR  1=1  TO 

3:SFC(I)=A(185+I) :SHP(I)=A(188+I) : WDOTF (I) =A(191+I) :NEXT 
I:BETAH=A(195) : ALPHAH (1) =A (196) 

1500  ALPHAH (2 )=A( 197) : PHANTOM(l) =A(198) : PHANT0M(2) =A(199) : 
MRV=A(200) :MRP=A(201) :FFR=A(202) :MEV=A(203) :ERSHPR=A(2  04) : 
EFFR=A(205) : CRUPWR(l) =A(206) : CRUPWR(2) =A(207) : CRUFFR( 1) =A( 
208) :CRUFFR(2)=A(209) :TFUEL=A(210) :TIME=A(211) :NGW2=A(212) 
:G=213 

1510  LL=LL+1:F0R  1=1  TO  LL:0 (I) =A(G) :G=G+1 :NEXT  I:G=G+1+ 
LL: G1=G+1+2*LL: G2=G1+1+2*LL 

1520  G3=G2+1+2*LL:G4=G3+1+2*LL:F0R  1=1  TO  2 : FOR  J=l  TO 
LL:PINF(I,J)=A(G) : POF (I, J) =A(G1) : PPF (I , J) =A(G2) :PTF(I,J)=A 
(G3) :TM(I,J)=A(G4) : G=G+1:G1=G1+1 :G2=G2+1 : G3=G3+1 : G4=G4+1 :N 
EXT  J,  I 

1530  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : PITR(I) =A(G4) 
:P0TR(I)=A(G5) : PTTR(I) =A(G6) : CLTR(I) =A(G7) :G4=G4+1: G5=G5+1 
:G6=G6+l:G7=G7+l:NEXT  I :G8=G7+l+2* (LL-1) :G9=G8+l+2* (LL-1) 
1540  FOR  1=1  TO  2:F0R  J=2  TO  LL: PITRF (I , J) =A(G7) : POTRF 
(I,J)=A(G8) :PTTRF(I,J)=A(G9) :G7=G7+1: G8=G8+1: G9=G9+1:NEXT 
J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1550  FOR  1=1  TO  2:F0R  J=l  TO  LL:TTM(I , J) =A(G9) :TRT (I , J) 
=A(G10) :L(I,J)=A(G11) : VERSTAB (I , J) =A(G12 ) : PTTRVSF (I , J) =A(G 
13) :PITRFI(I,J)=A(G14) : G9=G9+1 :G10=G10+1 : G11=G11+1: G12=G12 
+l:G13=G13+l:G14=G14+l:NEXT  J, I 

1560  G15=G14+l:G16=G15+l+2*LL:G17=G16+l+2*LL:G18=G17+l+2* 
LL:G19=G18+1+2*LL:G2  0=G19+1+2*LL:G21=G2 0+1+2 *LL 
1570  FOR  1=1  TO  2:F0R  J=l  TO  LL: AL90 (I , J) =A(G15) : AL270 
(I,J)=A(G16) :M90(I,J)=A(G17) :MCRIT (I , J) =A(G18) :PS(I,J)=A(G 
19) :PM(I,J)=A(G20) : PTT (I , J) =A(G21) : G15=G15+1 : G16=G16+1 :G17 
=G17+1 : G18=G18+1 : G19=G19+1 : G2  0=G2 0+1 : G2 1=G2 1+1 : NEXT  J , I : 
LL=LL-1 
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158  0  G22=G21+1:G2  3=G22+1+ENG:G24=G2  3+1+ENG:G25=G2  4+1+ENG: 

G2  6=G25+1+ENG:G27=G2  6+1+ENG:G2  8=G2  7+1+ENG:G2  9=G2  8+1+ENG:G3 

0=G2  9+1+ENG : G3 1=G3  0+1+ENG : G3  2=G3 1+1+ENG : G3  3=G3  2  +  1+ENG : G3  4  = 

G3  3  +  1+ENG : G3  5=G3  4  +  1+ENG : G3  6=G3  5+1+ENG : G3  7=G3  6+1+ENG : G3  8=G3 

7+1+ENG 

1590  G3  9=G3  8+1+ENG:G4  0=G3 9+1+ENG :G41=G4 0+1+ENG 

1600  FOR  1=1  TO  ENG:DW(I)=A(G22) :SHP(I)=A(G23) :SFC(I)=A 

(G24) :IC(I)=A(G25) : OC (I) =A (G26) : PMA(I) =A(G27) :MTBMA(I) =A(G 

28) :MDT(I)=A(G29) :MTBF (I) =A (G30) :MTBR(I) =A(G31) :RC(I)=A(G3 

2) :SV(I)=A(G33) : AVAIL(I) =A(G34) :RELY (I) =A (G35) :MAINT(I)=A( 

G36) 

1610  LC(I)=A(G37) : EWT (I) =A (G38 ) : YO (I) =A (G39) : YM(I) =A(G40) : 

NRPL(I)=A(G41) :G22=G2  2+1:G2  3=G2  3+1:G2  4=G2  4+1:G2  5=G2  5+1:G2  6 

=G2  6+1:G27=G27+1:G2  8=G2  8+1:G2  9=G2  9+1:G3  0=G3  0+1:G31=G31+1:G 

3  2=G3  2+1:G3  3=G3  3+1:G3  4=G3  4+1:G3  5=G3  5+1:G3  6=G3  6+1 

162  0  G3  7=G3  7+1:G3  8=G3  8+1:G3  9=G3  9+1:G4  0=G4  0+1:G41=G41+1: 
NEXT  I: CLOSE  #1: RETURN  7  00 

163  0  RETURN 

1640  OPEN  "B:DATA8"  FOR  INPUT  AS  #1:F0R  1=1  TO  LL(6):INPUT 

#1,  A(I) :NEXT  I : CLOSE  #1 

1650  SGW=A(1) :GW1=A(2) :WE=A(3) : VTIPMAX=A(4) :R=A(5) :OMEGA= 

A(6) :CT=A(7) :SIGMA=A(8) :B=A(9) :C=A(10) :AR=A(11) :CL=A(12) :C 

LALPHA=A(13) :CD0=A(14) :DL=A(15) :MBL=A(16) :MU=A(17) :MAXFVEL 

=A(18) :TIPL0SS=A(19) :PIN=A(20) :P0=A(21) :PT=A(22) :HP=A(23) : 

PERINDP=A(24) 

1660  V3=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V3=V3+l:Q=J+24 :W( (Q- 

24) ,I)=A(V3) :NEXT  J,I:FOR  1=1  TO  3 :W2A(I) =A(I+69) : 

W2B(I)=A(I+72) :W6A(I)=A(I+75) :W6B (I) =A(I+78) :W6C (I) =A(I+81 

) :NEXT  I:N=A(85) :WE(N)=A(86) :GW(N)=A(87) :DL(N- 

1)=A(88) :FM(N-1)=A(89) :FL=A(90) :IRLG=A(91) 

1670  NW=A(92) : PERDIFW=A (93 ) : PERDIFP=A (94) :Y=A(95) : FUEL= 

A(96) :PEOPLE=A(97) :UL=A(98) : SPECIAL=A (99) : ENGINE=A(100) :ZZ 

=A(101) :AB=A(102) :GR=A(103) :RH=A(104) :H=A(105) :D=A(106) : PI 

NI=A(107) :PTI=A(108) :M=A(109) :EFPA=A(110) :RHO (2) =A(111) :MM 

=A(112) :M(2)=A(113) 

168  0  CRUISEV=A(114) :CRU=A(115) :CRU2=A(116) :MAXF=A(117) :MAX 

F2=A(118) :MAXCRU1=A(119) :ALT=A(120) :TEMP=A(121) :LL=A(122) : 

TR=A(123) :TRPM=A(124) : OMEGAT=A(12  5) :TCDO=A(12  6) :BT=A(12  7) : 

TAR=A(128) :TRC=A(129) :TTR=A(130) :CTTR=A(131) :TRB=A(132) :SI 

GMAT=A(133) :V=A(134) 

1690  SPAN=A(135) :S=A(136) :SWP=A(137) : SWEEP=A(138) : LAVS=A 

(139) :VSAR=A(140) : BETA2=A(141) :T=A(142) :T2=A(143) :T3=A(144 

) :CLATR=A(14  5) :ALTR=A(14  6) : ALTRDEG=A ( 147) :TL=A(148) : BLTW=A 

(149) :CM=A(150) :THT=A(151) :AM=A(152) :AMAX=A(153) :PINIGE=A( 

154) :PTTI=A(155) 

1700  RSHP=A(156) : STYPE=A ( 157 ) : ICESHD=A(158) : STRTIN=A(159) : 

INLET=A(160) :BARR=A(161) : PARTSEP=A (162 ) :EAPS=A(163) :HDIF=A 

(164) :INRED=A(165) :EEDS=A(166) :RSHP1=A(167) :RSHP2=A(168) :R 

SHP3=A(169) :RSHP1A=A(17  0) :RSHP2A=A(171) :RSHP3A=A(17  2) : ESHP 

=A(173) :LOSS=A(174) 
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1710  ENG=A(175) :EN=A(17  6) :TRPWR=A(177) :TRWT=A(178) :NGW=A 
(179) :NPT=A(180) :NDL=A(181) :NFM=A(182) :NPERINDP=A(183 ) :NPE 
RDIFP=A(184) :NPERDIFW=A(185) :FOR  1=1  TO 

3:SFC(I)=A(185+I) :SHP(I)=A(188+I) :WDOTF (I) =A(191+I) :NEXT 
I:BETAH=A(195) : ALPHAH ( 1) =A ( 196) 

1720  ALPHAH (2 )=A( 197) : PHANTOM (1) =A( 198) : PHANTOM (2) =A( 199) : 
MRV=A(200) :RSHPREQ=A(2  01) :FFR=A(202) :MEV=A(203) :ERSHPR=A(2 
04) :EFFR=A(205) : CRUPWR (1) =A (206) : CRUPWR (2 ) =A(207) :CRUFFR(1 
)=A(208) :CRUFFR(2)=A(209) :TFUEL=A(210) :TIME=A(211) :NGW2=A( 
212) :PTF1=A(213) 

173  0  PDGW2=A(214)  :DIF=A(215)  :NGW3=A(216)  :MCV=A(217)  :WERT= 
A(218) :MHA=A(219) :SC=A(220) :BW=A(221) :BH=A(222) :FL=A(223) : 
VEFPA=A(224) :MCSHP=A(225) :T2FUEL=A(22  6) : LS4=A(227) G=228 
1740  LL=LL+1:F0R  1=1  TO  LL:0 (I) =A(G) :G=G+1:NEXT  I:G=G+1+ 
LL:G1=G+1+2*LL:G2=G1+1+2*LL 

1750  G3=G2+l+2*LL:G4=G3+l+2*LL:FOR  1=1  TO  2 : FOR  J=l  TO  LL: 
PINF(I;J)=A(G) :P0F(I,J)=A(G1) : PPF (I , J) =A(G2) : PTF (I , J) =A(G3 
) :TM(I,J)=A(G4) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT 
J, I 

1760  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : PITR(I) =A(G4) : 
P0TR(I)=A(G5) :PTTR(I)=A(G6) : CLTR(I) =A(G7) : G4=G4+1 :G5=G5+1 : 
G6=G6+1:G7=G7+1:NEXT  I : G8=G7+l+2* (LL-1) :G9=G8+l+2* (LL-1) 
1770  FOR  1=1  TO  2:F0R  J=2  TO  LL: PITRF (I , J) =A(G7) : POTRF 
(I,J)=A(G8) :PTTRF(I,J)=A(G9) :G7=G7+1 : G8=G8+1 : G9=G9+1 :NEXT 
J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

1780  FOR  1=1  TO  2:F0R  J=l  TO  LL:TTM(I , J) =A(G9) : TRT (I , J) 
=A(G10) :L(I,J)=A(G11) :VERSTAB(I,J)=A(G12) : PTTRVSF (I , J) =A (G 
13) :PITRFI(I,J)=A(G14) : G9=G9+1 : G10=G10+1 : G11=G11+1 : G12=G12 
+l:G13=G13+l:G14=G14+l:NEXT  J, I 

1790  G15=G14  +  l:G16=G_15+l+2*LL:G17=G16+l+2*LL:G18=G17  +  l+2* 
LL:G19=G18+1+2*LL:G2  0=G19+1+2*LL:G21=G2 0+1+2 *LL 
1800  FOR  1=1  TO  2:F0R  J=l  TO  LL: AL90 (I , J) =A(G15) : AL270 
(I,J)=A(G16) :M90(I,J)=A(G17) :MCRIT (I , J) =A(G18) :PS(I,J)=A(G 
19) :PM(I,J)=A(G20) : PTT (I, J) =A(G21) :G15=G15+1 :G16=G16+1 : G17 
=G17  +  1 : G18=G18+1 : G19=G19+1 : G2 0=G2 0+1 : G2 1=G2 1+1 : NEXT  J , I 
1810  G22=G21+1:G2  3=G22+1+ENG:G24=G23+1+ENG:G2  5=G24+1+ENG: 
G2  6=G25+1+ENG:G27=G2  6+1+ENG:G28=G2  7+1+ENG:G29=G2  8+1+ENG:G3 
0=G2  9+1+ENG:G31=G3  0+1+ENG:G3  2=G31+1+ENG:G3  3=G3  2+1+ENG:G3  4= 
G3  3  +  1+ENG : G3  5=G3  4  +  1+ENG : G3  6=G3  5+1+ENG : G3  7=G3  6+1+ENG : G3  8=G3 
7+1+ENG 

182  0  G39=G38+1+ENG:G4  0=G3  9+1+ENG:G41=G4  0+1+ENG 
1830  FOR  1=1  TO  ENG:DW(I)=A(G22) :SHP(I)=A(G23) :SFC(I)= 
A(G24) :IC(I)=A(G25) : OC (I) =A(G26) : PMA(I) =A(G27) :MTBMA(I)=A( 
G28) :MDT(I)=A(G29) :MTBF (I) =A(G30) :MTBR(I) =A(G31) :RC(I)=A(G 
32) :SV(I)=A(G33) : AVAIL(I) =A(G34) :RELY (I) =A(G35) :MAINT(I)=A 
(G36) 

1840  LC(I)=A(G37) : EWT (I) =A(G38) : YO (I) =A(G39) : YM(I) =A(G40) : 
NRPL(I)=A(G41) :G22=G2  2+1:G2  3=G2  3+1:G2  4=G24+1:G2  5=G2  5+1:G2  6 
=G2  6+1:G2  7=G27+1:G2  8=G2  8+1:G2  9=G2  9+1:G3  0=G3  0+1:G31=G31+1:G 
32=G3  2+1:G3  3=G3  3+1:G3  4=G3  4+1:G3  5=G3  5+1:G3  6=G3  6+1 
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18  50  G37=G37+1:G3  8=G3  8+1:G3  9=G3  9+1:G4  0=G4  0+1:G41=G41+1: 
NEXT  I: CLOSE  #1 : LL=LL-1: RETURN  7  00 

18  60  CLS: LOCATE  10 , 25 , 1 : INPUT  "ARE  YOU  SURE  YOU  WANT  TO 
QUIT  (Y/N) ";A$:IF  A$="y"  THEN  GOTO  1880  ELSE  IF  A$="Y" 
GOTO  1880  ELSE  IF  A$="n"  GOTO  700  ELSE  IF  A$="N"  GOTO  700 
ELSE 

1870  LOCATE  24 , 25 , 1 : INPUT  "you  must  enter  (y/n)  try 
again" ;A$: IF  A$="y"  THEN  GOTO  1880  ELSE  IF  A$="Y"  GOTO 
1880  ELSE  IF  A$="n"  GOTO  700  ELSE  IF  A$="N"  GOTO  700  ELSE 
GOTO  1870 

1880  CLS: LOCATE  10 , 30 , 1 : PRINT  "PROGRAM  TERMINATES" : LOCATE 
12,2  0,1: PRINT  "MACHINE  WILL  SELF  DESTRUCT  IN  5 
SECONDS": LOCATE  14 , 34 , 1: PRINT  "GOOD  LUCK" : LOCATE 
: PRINT  "MR.  PHELPS": FOR  1=1  TO  9  500: NEXT  I 


16,34 

1890 

1900 

1910 

1920 


SYSTEM 


FLASH-UP  WINDOWS  (used  in  this  program) 

(c)  COPYRIGHT  THE  SOFTWARE  BOTTLING  COMPANY 
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CHAPTER  ONE 
****************************************************** 

CHAPTER  ONE 
PROGRAM  OPERATION 
****************************************************** 


C. 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100  CLS: PRINT  "~C=ALL/" : PRINT  "~L=CH1/" 

110  COLOR  l,l,l:CLS:PRINT  "~W=WIN1/" : INPUT; "", X: ON  X  GOTO 

120,120,130 

12  0  CLS: PRINT  "~C=ALL/" : PRINT 
GOTO  120,120,130 

13  0  CLS: PRINT  "~C=ALL/" : PRINT 
GOTO  140,140,150 

PRINT 


14  0  CLS: PRINT  "~C=ALL/" 

GOTO  140,140,150 

150  CLS: PRINT  "~C=ALL/" : PRINT 

GOTO  160,160,170 

160  CLS: PRINT  "~C=ALL/" : PRINT 

GOTO  160,160,170 

170  PRINT  "~W=LOADNOTE/": CHAIN  "HD1",,ALL 


'~W=WIN4/' 
'~W=WIN2/' 
'-W=WIN6/' 
'~W=WIN3/' 


: INPUT ; " ' 
: INPUT ; " ' 
: INPUT ; " ' 
: INPUT ; " ' 


'  ~W=WIN5/ ": INPUT ;"",X4: ON  X4 


,X1:0N  XI 

,X2:0N  X2 

,X3:0N  X3 

,X4:0N  X4 
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MAIN  ROTOR  DESIGN 
****************************************************** 

***   CHAPTER  TWO  MAIN  PROGRAM   *** 


D.   CHAPTER  TWO 

10  KEY (5)  OFF 

20  ******************************************************* 

30 

40 

50 

60 

70 

80 

90 

100  ' 

110  CLS: PRINT  "~C=ALL/" : PRINT  "~L=HELO/" 

12  0  KEY (9)  ON 

13  0  ON  KEY (9)  GOSUB  14  0 
140  GOTO  160 

150  RETURN 

160  COLOR  1,1,1: CLS: LOCATE  2  3, 1,0: PRINT 

" ~W=CHP2/ " : INPUT ; " " , X 

17  0  IF  X=0  THEN  PRINT  "~W=NOENTRY/" : LOCATE  2 3, 1,0: PRINT  " 
": GOSUB  2280: GOTO  220  ELSE 

180  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  1260  ELSE  IF  X=2  THEN 

GOSUB  1340  ELSE  IF  X=3  THEN  GOSUB  1410  ELSE  IF  X=4  THEN 

GOSUB  1480  ELSE  IF  X=5  THEN  GOSUB  1580  ELSE  IF  X=6  THEN 

GOSUB  1640  ELSE 

190  IF  X=7  THEN  GOSUB  1710  ELSE  IF  X=8  THEN  GOSUB  1840 

ELSE  IF  X=9  THEN  GOSUB  1920  ELSE  IF  X=10  THEN  GOSUB  2030 

ELSE  IF  X=12  THEN  GOSUB  2110  ELSE  IF  X=13  GOTO  550  ELSE  IF 

X=15  GOTO  280  ELSE 

200  IF  X=16  THEN  GOSUB  560  ELSE  IF  X=17  THEN  GOSUB  820 

ELSE  IF  X=18  THEN  GOSUB  1090  ELSE  IF  X=19  THEN  CLS : PRINT 

"~W=LOADNOTE/": CHAIN  "HD1",,ALL  ELSE 

210  ' 

220  CLS: LOCATE  25 , 27 , 0 : PRINT  " 

": LOCATE  23, 1,0: PRINT  "     ":GOTO  12  0 

23  0  LOCATE  25 , 20 , 1 : PRINT  "you  must  input  a  number  from  1- 

18  try  again": GOTO  180 
240  ' 

250  '  ****   DATA  ENTRY  **** 

260  • 

270  • 

28  0  CLS: LOCATE  1,30,1: PRINT  "CHAPTER  TWO  DATA  ENTRY" 

290  LOCATE  3, 5,1: PRINT  "  1.   SPECIFICATION  GROSS  WEIGHT" 

3  00  PRINT  TAB (5)  "  2.   ROUGH  ESTIMATE  GROSS  WEIGHT" 

310  PRINT  TAB (5)  "  3.   ESTIMATE  OF  MANUFACTURER'S  EMPTY 

WEIGHT" 

32  0  PRINT  TAB (5)  "  4.   MAXIMUM  TIP  VELOCITY" 


II 

2 

II 

3 

II 

4 

II 

5 

II 

6 

II 

7 

II 

8 

3  30  PRINT  TAB (5)  "  5.  ROTOR  RADIUS" 

34  0  PRINT  TAB (5)  "  6.  ROTATIONAL  VELOCITY" 

350  PRINT  TAB (5)  "  7.  THRUST  COEFFICIENT" 

360  PRINT  TAB (5)  "  8.  BLADE  SOLIDITY" 
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37  0  PRINT  TAB (5)  "  9.   NUMBER  OF  MAIN  ROTOR  BLADES" 

380  PRINT  TAB (5)  "10.   BLADE  CHORD" 

39  0  PRINT  TAB (5)  "11.   BLADE  ASPECT  RATIO" 

400  PRINT  TAB (5)  "12.   AVERAGE  LIFT  COEFFICIENT" 

410  PRINT  TAB (5)  "13.   BLADE  LIFT  CURVE  SLOPE" 

42  0  PRINT  TAB (5)  "14.   BLADE  DRAG  COEFFICIENT" 

43  0  PRINT  TAB (5)  "15.   DISC  LOADING" 

440  PRINT  TAB (5)  "16.   MAXIMUM  ADVANCE  RATIO" 

450  PRINT  TAB (5)  "17.   MAXIMUM  BLADE  LOADING" 

460  PRINT  TAB (5)  "18.   MAXIMUM  FORWARD  VELOCITY" 

470  PRINT  TAB (5)  "19.   RETURN  TO  CHAPTER  TWO  MENU" 

480  LOCATE  23 , 26 , 1 : INPUT  "WHICH  DO  YOU  WANT  TO  ENTER" ;X: IF 

X=l  THEN  LOCATE  3, 55,1: INPUT  SGW: LOCATE  23 , 54 , 1 : PRINT  " 

":GOTO  48  0  ELSE  IF  X=2  THEN  LOCATE  4, 55,1: INPUT  GWl : LOCATE 

23,54,1: PRINT  "  ":GOTO  480  ELSE • 

490  IF  X=3  THEN  LOCATE  5, 55,1: INPUT  WE : LOCATE 

2  3,54,1: PRINT  "  " : GOTO  480  ELSE  IF  X=4  THEN  LOCATE 

6,55,1: INPUT  VTIPMAX: LOCATE  23 , 54 , 1 : PRINT  "  ":GOTO  48  0 

ELSE  IF  X=5  THEN  LOCATE  7, 55,1: INPUT  R: LOCATE 

23, 54,1: PRINT  "  " : GOTO  480  ELSE 

500  IF  X=6  THEN  LOCATE  8, 55,1: INPUT  OMEGA: LOCATE 

23,54,1: PRINT  "  " : GOTO  48  0  ELSE  IF  X=7  THEN  LOCATE 

9, 55,1: INPUT  CT: LOCATE  23 , 54 , 1 : PRINT  "  " : GOTO  480  ELSE  IF 

X=8  THEN  LOCATE  10 , 55 , 1: INPUT  SIGMA: LOCATE  23 , 54 , 1 : PRINT  " 

":GOTO  48  0  ELSE 

510  IF  X=9  THEN  LOCATE  11 , 55 , 1 : INPUT  B: LOCATE 

2  3,54,1: PRINT  "  " : GOTO  48  0  ELSE  IF  X=10  THEN  LOCATE 

12,55, 1:INPUT  C:LOCATE  23 , 54 , 1: PRINT  "   " : GOTO  480  ELSE  IF 

X=ll  THEN  LOCATE  13 , 55 , 1 : INPUT  AR: LOCATE  23 , 54 , 1: PRINT  " 

":GOTO  480  ELSE 

52  0  IF  X=12  THEN  LOCATE  14 , 55, 1: INPUT  CL: LOCATE 

2 3, 54,1: PRINT  "   ":GOTO  48  0  ELSE  IF  X=13  THEN  LOCATE 

15, 55,1: INPUT  CLALPHA: LOCATE  23 , 54 , 1: PRINT  "   " : GOTO  48  0 

ELSE 

53  0  IF  X=14  THEN  LOCATE  16, 55 , 1: INPUT  CDO: LOCATE 

23, 54,1: PRINT  "   " : GOTO  480  ELSE  IF  X=15  THEN  LOCATE 
17, 55,1: INPUT  DL: LOCATE  23 , 54 , 1 : PRINT  "   " : GOTO  480  ELSE 
IF  X=16  THEN  LOCATE  18 , 55 , 1 : INPUT  MU: LOCATE  23 , 54 , 1 : PRINT 
"   ":GOTO  48  0  ELSE 

54  0  IF  X=17  THEN  LOCATE  19 , 55 , 1 : INPUT  MBL: PRINT  "   " : GOTO 
480  ELSE  IF  X=18  THEN  LOCATE  20 , 55 , 1 : INPUT  MAXFVEL: PRINT  " 
":GOTO  480  ELSE  IF  X=19  GOTO  110 

550  GOSUB  1260:GOSUB  1340:GOSUB  1410:GOSUB  1480:GOSUB 

1840:GOSUB  1920:GOSUB  2110:GOTO  110 

560  '  *******   PRINT  DATA  ON  SCREEN   ******* 

570  ' 

580  ' 

590  CLS: LOCATE  2, 2 5,1: PRINT  "TABLE  OF  CHAPTER  TWO  RESULTS" 

600  LOCATE  5, 5,1: PRINT  "SPECIFICATION  GROSS 

WEIGHT"; TAB (50)  SGW 

610  PRINT  TAB (5)  "ROUGH  ESTIMATE  GROSS  WEIGHT" ; TAB (50)  GWl 
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62  0  PRINT  TAB (5)  "ESTIMATE  OF  MANUFACTURER'S  EMPTY 
WEIGHT"; TAB (50)  WE 


630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB  (5 
TAB  (5 
TAB  (5 
TAB  (5 
TAB  (5 
TAB  (5 


PRINT  TAB (5 
PRINT  TAB (5 


PRINT  TAB (5 
PRINT  TAB (5 
PRINT  TAB (5 
PRINT  TAB (5 
PRINT  TAB (5 
PRINT  TAB (5 
PRINT  TAB (5 

MAXFVEL 

780  GOSUB  2280 

790  RETURN  110 

800 

810 

820 

830 

840 

850 

2280 


"MAXIMUM  TIP  VELOCITY"; TAB (50)  VTIPMAX 

•ROTOR  RADIUS"; TAB (50)  R 

'ROTATIONAL  VELOCITY" ; TAB (50)  OMEGA 

'THRUST  COEFFICIENT" ;TAB (50)  CT 

'BLADE  SOLIDITY" ;TAB(50)  SIGMA 

•NUMBER  OF  MAIN  ROTOR  BLADES" ; TAB (50)  B 

'BLADE  CHORD"; TAB (50)  C 

'BLADE  ASPECT  RATIO" ; TAB (50)  AR 

•AVERAGE  LIFT  COEFFICIENT" ; TAB (50)  CL 

'BLADE  LIFT  CURVE  SLOPE" ; TAB (50)  CLALPHA 

•BLADE  DRAG  COEFFICIENT'^  ;TAB  (50)  CDO 

'DISC  LOADING"; TAB (50)  DL 

'MAXIMUM  ADVANCE  RATIO" ; TAB (50)  MU 

'MAXIMUM  BLADE  LOADING" ; TAB (50)  MBL 

'MAXIMUM  FORWARD  VELOCITY" ; TAB (50) 


********   PRINT  OUT  DATA   ******** 


CLS : LOCATE 
LOCATE  2  5 
860  LPRINT  TAB (25) 
RESULTS " : I $=CHR$ ( 9 ) 
87  0  LPRINT 

LPRINT 

LPRINT 

LPRINT 


23,1,0:  PRINT  ••  ~W= PRINTER/  "  :  GOSUB 
27,0: PRINT  " 

•'TABLE  OF  CHAPTER  TWO 


880 
890 
900 
SGW 
910 
GWl 
920 


TAB (12) 
LPRINT  TAB (12) 


LPRINT  TAB (12) 
WEIGHT"; TAB (57)  WE 
93  0  LPRINT  TAB (12) 
LPRINT  TAB (12) 
LPRINT  TAB (12) 
LPRINT  TAB (12) 
LPRINT  TAB (12) 
LPRINT  TAB (12) 
LPRINT  TAB (12) 
LPRINT  TAB (12) 


940 

950 

960 

970 

980 

990 

1000 

1010  LPRINT 

1020  LPRINT 

CLALPHA 

103  0  LPRINT 

104  0  LPRINT 


TAB (12) 
TAB (12) 

TAB (12) 
TAB (12) 


"SPECIFICATION  GROSS  WEIGHT" ; TAB (57) 

"ROUGH  ESTIMATE  GROSS  WEIGHT" ; TAB (57) 

"ESTIMATE  OF  MANUFACTURER'S  EMPTY 

"MAXIMUM  TIP  VELOCITY"; TAB (57)  VTIPMAX 
"ROTOR  RADIUS"; TAB (57)  R 
"ROTATIONAL  VELOCITY" ; TAB (57)  OMEGA 
"THRUST  COEFFICIENT"; TAB (57)  CT 
"BLADE  SOLIDITY"; TAB (57)  SIGMA 
"NUMBER  OF  MAIN  ROTOR  BLADES" ; TAB (57) 
"BLADE  CHORD"; TAB (57)  C 
"BLADE  ASPECT  RATIO" ; TAB (57)  AR 
"AVERAGE  LIFT  COEFFICIENT" ; TAB (57 )  CL 
"BLADE  LIFT  CURVE  SLOPE" ; TAB (57 ) 


B 


"BLADE  DRAG  COEFFICIENT" ; TAB ( 57 ) 
"DISC  LOADING"; TAB (57)  DL 


CDO 
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1050  LPRINT  TAB (12)  "MAXIMUM  ADVANCE  RATIO" ; TAB (57)  MU 

1060  LPRINT  TAB(12)  "MAXIMUM  BLADE  LOADING" ; TAB (57)  MBL 

107  0  LPRINT  TAB (12)  "MAXIMUM  FORWARD  VELOCITY" ; TAB (57) 

MAXFVEL 

1080  LPRINT  CHR$  (12):RETURN  110 

1090  • 

1100  ' 

1110  '  ***  STORE  DATA  ON  FILE  DISK  *** 

1120  ' 

1130  ' 

1140  A(1)=SGW:A(2) =GW1 : A ( 3 ) =WE : A ( 4 ) =VTI PMAX :A(5)=R:A(6)= 

OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12)=CL: 

A ( 1 3 ) =CLALPHA : A ( 14 ) =CDO : A ( 15 ) =DL : A ( 1 6 ) =MBL : A ( 17 ) =MU : A ( 18 ) = 

MAXFVEL 

1150  CLS: LOCATE  2 3, 1,0: PRINT  "~W=DISK/" :GOSUB  228  0: LOCATE 

25,27,1: PRINT  "  ": LOCATE 

2  3, 1,0: PRINT  "~W=SAVE/" : Z=2 :OPEN  "B:DATA1"  FOR  OUTPUT  AS 

#1:PRINT  #1,  Z:FOR  1=1  TO  10:PRINT  #1,  LL(I):NEXT  I 

1160  CLOSE  #1 

117  0  OPEN  "B:DATA2"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  18: PRINT 
#1,A(I):NEXT  I:CLOSE  #1 

118  0  RETURN  12  0 
1190  • 

1200  ' 

1210  •  ***   CHAPTER  TWO  SUBROUTINES   *** 

1220  • 

1230  • 

1240  '  ********   SECTION  2.1   ******* 

1250  • 

1260  CLS:LOCATE  5,30,1:PRINT  "***  SECTION  2.1  ***":LOCATE 

7, 27,0: PRINT  "-ESTIMATE  OF  GROSS  WEIGHT-" : LOCATE 

10, 21,1: INPUT  "ENTER  SPECIFICATION  GROSS  WEIGHT" ;SGW 

12  70  GWl  =  .8  *  SGW: LOCATE  12 , 21, 1: PRINT  "ROUGH  ESTIMATE 
GROSS  WEIGHT  IS  =";GW1 

128  0  LOCATE  23 , 22 , 1 : INPUT  "do  you  want  to  make  any 

changes?  (y/n)";C$:IF  C$="y"  THEN  GOTO  1260  ELSE  IF  C$="Y" 

GOTO  1260  ELSE  IF  C$="n"  GOTO  1300  ELSE  IF  C$="N"  GOTO 

1300  ELSE 

1290  LOCATE  24 , 25 , 1: PRINT  "you  must  enter  (y/n)  try 

again": GOTO  1280 

1300  IF  X=13  THEN  RETURN  ELSE  RETURN  120 

1310  ' 

1320  '  ********   SECTION  2.2   ******* 

1330  • 

1340  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  2.2  ***": PRINT  " 

": PRINT  TAB (2  0)  "-ESTIMATE  OF  MANUFACTURER'S  EMPTY  WEIGHT- 

1350  LOCATE  10,5,1: INPUT  "USING  FIGURE  2-1  ENTER  THE 
MANUFACTURER'S  EMPTY  WEIGHT  ESTIMATE" ; WE 

13  60  LOCATE  12,5,1: PRINT  "MANUFACTURER'S  EMPTY  WEIGHT 
ESTIMATE  ="7WE 
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1370  LOCATE  23 , 22 , 1 : INPUT  "do  you  want  to  make  any  changes 
(y/n)";C$:IF  C$="y"  THEN  GOTO  1340  ELSE  IF  C$="Y"  GOTO 
1340  ELSE  IF  C$="n"  GOTO  1390  ELSE  IF  C$="N"  GOTO  1390 
ELSE 

13  8  0  LOCATE  24 , 25 , 1 : PRINT  "you  must  enter  (y/n)  try 
again": GOTO  1370 

1390  IF  X=13  THEN  RETURN  ELSE  RETURN  12  0 

1400  ' 

1410  '  ********   SECTION  2.3   ******* 

1420  ' 

1430  VTIPMAX  =  .65  *  A 

1440  CLS:LOCATE  5,30,1:PRINT  "***  SECTION  2.3  ***":LOCATE 

7, 2 2,0: PRINT  "-CALCULATE  THE  MAXIMUM  TIP  VELOCITY-" : LOCATE 

9, 25,0: PRINT  "MAXIMUM  TIP  VELOCITY  =  ";VTIPMAX 

1450  GOSUB  2280 

14  60  IF  X=13  THEN  RETURN  ELSE  RETURN  12  0 
1470  ' 

1480  '  ********   SECTION  2.4   ******* 

1490  ' 

1500  CLS:LOCATE  5,30,1:PRINT  "***  SECTION  2.4  ***":LOCATE 

7, 28,0: PRINT  "-DETERMINE  ROTOR  RADIUS-" 

1510  LOCATE  10, 5,1: INPUT  "USING  FIGURE  2-2  AND  HD-7 

DETERMINE  A  VALUE  OF  DISK  LOADING  AND  ENTER" ;DL 

1520  R  =  SQR(SGW/(DL*PI) ) 

1530  LOCATE  12 , 30 , 1 : PRINT  "ROTOR  RADIUS  =";R 

154  0  LOCATE  23 , 22 , 1 : INPUT  "do  you  want  to  make  any  changes 

(y/n) ";C$:IF  C$="Y"  THEN  GOTO  1480  ELSE  IF  C$="y"  GOTO 

1480  ELSE  IF  C$="n"  GOTO  1560  ELSE  IF  C$="N"  GOTO  1560 

ELSE 

1550  LOCATE  24 , 25 , 1 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  1540 

1560  IF  X=13  THEN  GOTO  1570  ELSE  RETURN  120 

1570  ' 

1580  '  ********   SECTION  2.5   ******* 

1590  ' 

1600  OMEGA  =  VTIPMAX  /  R 

1610  CLS: LOCATE  2, 30,1: PRINT  "***  SECTION  2.5  ***": LOCATE 

4, 2  0,0: PRINT  "-DETERMINE  FIRST-CUT  ROTATIONAL  VELOCITY- 

": LOCATE  6, 3  5,0: PRINT  "OMEGA  ="; OMEGA 

1620  • 

1630  • 

1640  •  ********   SECTION  2.6   ******* 

1650  • 

1660  CT  =  SGW  /  (PI*(R^2) *RHO*( (OMEGA*R) ^2) ) 

1670  LOCATE  14 , 30 , 1 : PRINT  "***  SECTION  2.6  ***": LOCATE 

16, 16,0: PRINT  "-FIRST  CUT  DETERMINATION  OF  THRUST 

COEFFICIENT-": LOCATE  18 , 30 , 0 : PRINT  "THRUST  COEFFICIENT 

=  ";CT 

1680  GOSUB  2280: IF  X=13  THEN  GOTO  1690  ELSE  RETURN  120 

1690  ' 

1700  ' 
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1710  '  ********   SECTION  2.7   ******* 

1720  ' 

1730  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  2.7  ***": LOCATE. 

7, 27,0: PRINT  "-DETERMINE  BLADE  SOLIDITY-" 

1740  LOCATE  10 , 24 , 1 : INPUT  "ENTER  MAXIMUM  FORWARD 

VELOCITY" ;MAXFVEL 

1750  MU  =  MAXFVEL*1. 687778  /  (OMEGA*R) 

1760  LOCATE  12 , 24 , 1 : PRINT  "MAXIMUM  ADVANCE  RATIO  =";MU 

1770  LOCATE  14 , 13 , 1 : INPUT  "DETERMINE  MAXIMUM  BLADE  LOADING 

FROM  FIGURE  2-3  AND  ENTER" ;MBL 

1780  SIGMA  =  CT  /  MBL 

1790  LOCATE  16 , 24 , 1: PRINT  "BLADE  SOLIDITY  ="; SIGMA 

1800  LOCATE  23 , 22 , 1 : INPUT  "do  you  want  to  make  any  changes 

(y/n) ";C$:IF  C$="y"  THEN  GOTO  1710  ELSE  IF  C$="Y"  GOTO 

1710  ELSE  IF  C$="n"  GOTO  1820  ELSE  IF  C$="N"  GOTO  1820 

ELSE 

1810  LOCATE  2  4,25,1: INPUT  "you  must  enter  (y/n)  try 

again": GOTO  1800 

182  0  IF  X=13  THEN  RETURN  ELSE  RETURN  12  0 

1830  ' 

1840  '  ********   SECTION  2.8   ******* 

1850  ' 

1860  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  2.8  ***": PRINT  " 

": PRINT  TAB (23)  "-DETERMINE  NUMBER  OF  ROTOR  BLADES-" 

1870  LOCATE  10 , 15 , 1 : INPUT  "ENTER  YOUR  SELECTION  FOR  NUMBER 

OF  ROTOR  BLADES" ;B: PRINT  "  ": PRINT"  ": PRINT  TAB (15) 

"NUMBER  OF  ROTOR  BLADES  =";B 

1880  LOCATE  23 , 22 , 1 : INPUT  "do  you  want  to  make  any  changes 

(y/n)";C$:IF  C$="y"  THEN  GOTO  1840  ELSE  IF  C$="Y"  GOTO 

1840  ELSE  IF  C$="n"  GOTO  1900  ELSE  IF  C$="N"  GOTO  1900 

ELSE 

1890  LOCATE  24 , 25, 1 : INPUT  "you  must  enter  (y/n)  try 

again": GOTO  1880 

19  00  IF  X=13  THEN  RETURN  ELSE  RETURN  12  0 

1910  • 

1920  '  ********   SECTION  2.9   ******* 

1930  • 

1940  C  =  (SIGMA*PI*R)  /  B 

1950  AR  =  R  /  C 

1960  CLS:LOCATE  5,30,1:PRINT  "***  SECTION  2.9  ***":LOCATE 

7, 2  0,0: PRINT  "-DETERMINE  THE  CHORD  AND  ASPECT  RATIO- 

": PRINT  "": LOCATE  9, 2 5,0: PRINT  "ROTATIONAL  VELOCITY 

="; OMEGA: LOCATE  11, 25 , 0 : PRINT  "CHORD  =";C: LOCATE 

13, 25,0: PRINT  "ASPECT  RATIO  =";AR 

1970  LOCATE  16 , 15 , 1 : INPUT  "DO  YOU  WANT  TO  CHANGE  THE 

ROTATIONAL  VELOCITY  (Y/N)";B$:IF  B$="y"  THEN  GOSUB  2380 

ELSE  IF  B$="Y"  THEN  GOSUB  2380  ELSE  IF  B$="n"  GOTO  1990 

ELSE  IF  B$="N"  GOTO  1990  ELSE 

1980  LOCATE  24 , 25, 1 : INPUT  "you  must  enter  (y/n)  try 

again": GOTO  1970 

1990  IF  X=13  THEN  GOTO  2000  ELSE  RETURN  120 
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2000 
2010 
2020 
2030 
2040 
2050 


********   SECTION  2.10   ******* 
CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  2.10  ***": PRINT 


":PRINT  TAB(27)  "-AVERAGE  LIFT  COEFFICIENT-" 


2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 


CL  =  (CT*6)  /  SIGMA 

LOCATE  10,25,1: PRINT  "AVERAGE  LIFT  COEFFICIENT  =";CL 

GOSUB  2  28  0 

IF  X=13  THEN  RETURN  ELSE  RETURN  12  0 
I 

•  ********   SECTION  2.12   ******* 


CLS: LOCATE  5, 3  0,1: PRINT  "***  SECTION  2.12  ***": PRINT 


": PRINT  TAB (20)  "-LIFT  CURVE  SLOPE  AND  DRAG  COEFFICIENT- 


214  0  LOCATE  10 , 16 , 1 : INPUT  "ENTER  LIFT  CURVE  SLOPE  AT  ZERO 

ANGLE  OF  ATTACK" ; CLALPHA 

2150  LOCATE  12 , 16 , 1 : INPUT  "ENTER  DRAG  COEFFICIENT  AT  ZERO 

ANGLE  OF  ATTACK" ;CDO 

2160  LOCATE  14 , 16 , 1 : PRINT  "LIFT  CURVE  SLOPE 

="; CLALPHA: LOCATE  16 , 16 , 1 : PRINT  "DRAG  COEFFICIENT  =";CDO 

217  0  LOCATE  23 , 22 , 1 : INPUT  "do  you  want  to  amke  any  changes 
(y/n)";C$:IF  C$="y"  THEN  GOTO  2110  ELSE  IF  C$="Y"  GOTO 
2110  ELSE  IF  C$="n"  GOTO  2190  ELSE  IF  C$="N"  GOTO  2190 
ELSE 

218  0  LOCATE  24 , 25 , 1 : INPUT  "you  must  enter  (y/n)  try 
again" :GOTO  2170 

219  0  RETURN  12  0 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 

228  0  IF  AP=1  THEN  LOCATE  2  5,79,0  ELSE  LOCATE  25 , 27 , 0 : PRINT 
"press  any  key  to  continue" 

2290  A$=INKEY$:IF  A$=""  THEN  2290 

2  3  00  RETURN 

2  310  LOCATE  1,1,0 

2320  A$=INKEY$:IF  A$=""  THEN  2310 

233  0  RETURN 

2340  • 

2350  '  ***   SECTION  2.9  SUBROUTINE   *** 

2360  ' 

2370  ' 

2  380  CLS: LOCATE  10 , 25 , 1 : INPUT  "ENTER  NEW  ROTATIONAL 

VELOCITY"; OMEGA 


***   SECTION  SUBROUTINES   *** 


***  PAUSE  SUBROUTINE   *** 
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2390  CT=GW1/(PI*(R^2) *RHO 
1.687778  /(OMEGA*R) 
2  4  00  LOCATE  12 , 25 , 1 : PRINT 
2  410  LOCATE  14 , 10 , 1 : INPUT 
MAXIMUM  BLADE  LOADING  AND 
2420  LOCATE  16 , 25 , 1: PRINT 
=" ;SIGMA: C= (SIGMA*PI*R) /B 
24  3  0  AR=R/C 
2440  LOCATE  18,25,1 
"ASPECT  RATIO  =";AR 
2450  LOCATE  22,13,1 
rotational  velocity 
2460  IF  F$="y"  THEN 
ELSE  IF  F$="n"  GOTO 
2470  LOCATE  24,25,1 
again" ;F$: GOTO  2  4  50 
2480  RETURN  1960 
2490  ' 
2500  ' 


*( (0MEGA*R)^2) ) :MU=MAXFVEL* 

"MAXIMUM  ADVANCE  RATIO  =";MU 
"USE  FIGURE  2-3  TO  DETERMINE  THE 
ENTER" ;MBL: SIGMA=CT/MBL 
"BLADE  SOLIDITY 


PRINT  "CHORD  =";C: LOCATE  20 , 25 , 1 : PRINT 


INPUT 

again 

GOTO 

2480 

INPUT 


"do  you  want  to  change  the 

(y/n)";F$ 
2380  ELSE  IF  F$="Y"  GOTO  2380 
ELSE  IF  F$="N"  GOTO  2480  ELSE 

"you  must  enter  (y/n)  try 
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E.   CHAPTER  THREE 

10  KEY (5)  OFF 

2  0  GOTO  3  50 

30  '  ***  PAUSE  SUBROUTINE   *** 

40  • 

50  ' 

60  IF  AP=1  THEN  LOCATE  2  5,79,0  ELSE  LOCATE  25 , 27 , 0 : PRINT 

"press  any  key  to  continue" 

70  A$=INKEY$:IF  A$=""  THEN  70 

80  RETURN 

90  ' 

100  '  ***   SECTION  2.9  SUBROUTINE   *** 

110  ' 

120  ' 

13  0  FOR  1=4  TO  23: LOCATE  I, 41,1: PRINT  " 

":NEXT  I: LOCATE  10 , 42 , 1: INPUT  "ENTER  NEW  ROTATIONAL 

VELOCITY"; OMEGA 

140  CT=GW1/(PI*(R^2) *RHO*( (OMEGA*R) ^2) ) :MU=MAXFVEL/ 

(OMEGA*R) 

150  LOCATE  12,42,1: PRINT  "MAXIMUM  ADVANCE  RATIO  =" ;MU 

160  LOCATE  14,42,1: PRINT  "YOUR  MAXIMUM  BLADE  LOADING 

=" ;MBL: SIGMA=CT/MBL: CL= (CT*6) /SIGMA 

170  LOCATE  16, 42,1: PRINT  "BLADE  SOLIDITY  ="; SIGMA 

18  0  AR=R/C 

19  0  LOCATE  18,42,1: PRINT  "CHORD  =";C: LOCATE  2  0, 42 , 1 : PRINT 
"ASPECT  RATIO  =";AR 

200  LOCATE  22 , 42 , 1 : INPUT  "change  again  (y/n) " ;F$ :GOTO  210 

210  IF  F$="y"  THEN  GOTO  130  ELSE  IF  F$="Y"  GOTO  130  ELSE 

IF  F$="n"  GOTO  230  ELSE  IF  F$="N"  GOTO  230  ELSE 

22  0  LOCATE  23 , 42 , 1 : INPUT  "you  must  enter  (y/n)  try 

again" ;F$: GOTO  210 

230  RETURN 

240  ' 

250  CT=GW(N)/(PI*(R^2) *RHO* ( (0MEGA*R)^2) ) :MU=MAXFVEL/ 

(OMEGA*R) :SIGMA=(B*C)/(PI*R) : GOSUB 

260:CL=(CT*6)/SIGMA:RETURN 

260  ' 

270  AR  =  R  /  C 

280  FOR  1=3  TO  23: LOCATE  I, 41,1: PRINT  " 

":NEXT  I: LOCATE  4,47,1: PRINT  "***  FROM  SECTION  2.9 

***": LOCATE  7,42,1: PRINT  "ROTATIONAL  VELOCITY 

="; OMEGA: LOCATE  9, 4 2,1: PRINT  "CHORD  =";C 

290  LOCATE  11 , 42 , 1 : PRINT  "ASPECT  RATIO  =";AR: LOCATE 

13,42,1: PRINT  "ROTOR  RADIUS" ;R 

300  LOCATE  23 , 48 , 1 : INPUT  "any  changes  (y/n)";C$:IF  C$="y" 

THEN  GOTO  320  ELSE  IF  C$="Y"  GOTO  320  ELSE  IF  C$="n"  THEN 

RETURN  ELSE  IF  C$="N"  THEN  RETURN  ELSE 

310  LOCATE  23, 42,1: INPUT  "you  must  enter  (y/n)  try 

again" ;C$: IF  C$="y"  THEN  GOTO  260  ELSE  IF  C$="Y"  GOTO  260 
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THEN  RETURN  ELSE  IF  C$="N"  THEN  RETURN  ELSE 
GOTO  1860  ELSE  IF  W=2  GOTO  1870  ELSE  IF 


********************  CHAPTER  THREE  ****************** 
***  PRELIMINARY  POWER  CALCULATIONS  *** 


***  CHAPTER  THREE  MAIN  PROGRAM  *** 


ELSE  IF  C$="n" 

GOTO  310 

32  0  IF  W=l  THEN 

W=3  GOTO  1880 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 


ERASE  A:DIM  A(500) : CLS : PRINT  "~C=ALL/" : PRINT  "~L=CH3/" 
KEY(9)  ON:ON  KEY(9)  GOSUB  450 
AP=0: COLOR  1 , 1, 1 : CLS : LOCATE  2 3, 1,0: PRINT 
"~W=C3MAIN/ " : INPUT ; " " , X 

460  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  1060  ELSE  IF  X=2  THEN 
GOSUB  1220  ELSE  IF  X=3  THEN  GOSUB  1540  ELSE  IF  X=4  THEN 
ELSE  IF  X=5  THEN  GOSUB  2  08  0  ELSE  IF  X=6  THEN 
ELSE  IF  X=7  THEN  GOSUB  2270  ELSE  IF  X=8  THEN 
ELSE 

THEN  GOSUB  2540  ELSE  IF  X=10  THEN  GOSUB 
X=ll  THEN  GOSUB  2770  ELSE  IF  X=12  THEN 
X=13  THEN  GOSUB  4370  ELSE  IF  X=14  THEN 


GOSUB  17  3  0 
GOSUB  213  0 
GOSUB  23  3  0 
470  IF  X=9 
ELSE  IF 
ELSE  IF 


2620 
GOTO  1090 
GOSUB  4060 


ELSE  IF  X=15  THEN  GOSUB  660  ELSE  IF  X=16  THEN  GOSUB  490 

ELSE 

480  IF  X=17  THEN  ERASE  A: CH3=3 : CLS : PRINT  " ~W= LOAD/ ": CHAIN 


"HDl 

490 

500 

510 

520 

530 


,ALL 


***  STORE  DATA  ON  FILE  DISK  *** 


"~W=DISK/": GOSUB  60: LOCATE 

" : LOCATE 


CLS: LOCATE  2 3, 1,0: PRINT 
25,27,1: PRINT  " 
2  3, 1,0: PRINT  "~W=SAVE/" 

540  A(1)=SGW:A(2)=GW1:A(3) =WE : A ( 4 ) =VTI PMAX :A(5)=R:A(6)= 
OMEGA:A(7)=CT:A(8)=SIGMA:A(9)=B:A(10)=C:A(11)=AR:A(12)=CL: 
A ( 13 ) =CLALPHA : A ( 14 ) =CDO : A ( 15 ) =DL : A ( 16 ) =MBL: A ( 17 ) =MU : A ( 18 ) = 
MAXFVEL: A ( 19 ) =TIPLOSS : A ( 2  0 ) =PIN : A ( 2 1 ) =P0 : A ( 2  2 ) =PT : A ( 2  3 ) =HP 
:A(24)=PERINDP 

550  V=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V=V+1 : Q=J+24 : A(V) =W(Q- 
24,I):NEXT  J,I:FOR  1=1  TO 

3:A(I+69)=W2A(I) : A(I+72) =W2B (I) : A(I+75) =W6A (I) :A(I+78)=W6B 
(I) :A(I+81)=W6C(I) :NEXT  I : A(85) =N: A(86) =WE (N) : 
A(87)=GW(N) :A(88)=DL(N-1) :A(89)=FM(N- 
1) :A(90)=FL:A(91)=IRLG 

560  A(92)=NW:A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96)= 
FUEL:A(97)=PEOPLE:A(98)=UL:A(99)=SPECIAL:A(100)=ENGINE:A(1 
01)=ZZ:A(102)=AB:A(103)=GR:A(104)=RH:A(105)=H:A(106)=D:A(1 
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07)=PINI:A(108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) :A(1 

12)=MM:A(113)=M(2) 

57  0  A(114)=CRUISEV:A(115)=CRU:A(116)=CRU2:A(117)=MAXF: 

A ( 118 ) =MAXF2 : A ( 119 ) =MAXCRU1 : A ( 12  0 ) =ALT : A ( 12 1 ) =TEMP : A ( 12  2 )  = 

LL:G=12  3:LL=LL+l:FOR  1=1  TO  LL: A(G) =0 (I) :G=G+1 :NEXT 

I : G=G+1+LL: G1=G+1+2*LL: G2=G1+1+2*LL: G3=G2+1+2*LL: G4=G3+l+2 

*LL 

580  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G) =PINF (I , J) : A(G1) = 

POF(I,J) :A(G2)=PPF(I,J) : A(G3) =PTF (I, J) : A(G4) =TM(I , J) :G=G+1 

:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J, I 

590  LL(1)=127+(12*LL) :LL=LL-1 

Z=3:0PEN  "B:DATA1"  FOR  OUTPUT  AS  #1: PRINT  #1,  Z : FOR 

TO  10:PRINT  #1,  LL(I) :NEXT  I:CLOSE  #1 

OPEN  "B:DATA3"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  LL(1):PRINT 
iNEXT  I: CLOSE  #1 : RETURN • 440 


A(I) 


***  PRINT  OUT  DATA  *** 


PR=2  THEN 
;GOSUB  2910 


600 
1=1 
610 

#1, 

620 

630 

640 

650 

660 

670 

680 

69  0  COLOR  1,1,1:CLS: LOCATE  2 3, 1,0: PRINT 

"  -'W=C3  PRINT/  "  :  INPUT ;  "  "  ,  PR :  COLOR  15,1,1 

700  AP=0:IF  PR=1  THEN  GOTO  73  0  ELSE  IF 

AP=1:G0SUB  1390  ELSE  IF  PR=3  THEN  AP=1 

PR=4  THEN  AP=0:GOTO  44  0 

710  'HE  TABLE  IS  PRINTED  PRESS  ANY  KEY  AND  RETURN 

PRINT  MENU.":GOSUB  40: IF  PR=2  THEN  AP=1:G0SUB  1410 

AP=1:G0SUB  2730 

73  0  CLS: LOCATE  2  3, 1,0: PRINT  " ~W= PRINTER/ ": GOSUB  60 

74  0  LPRINT  TAB (25)  "TABLE  OF  CHAPTER  THREE 
RESULTS " : I $=CHR$ ( 9 ) 

750  LPRINT 

760 

770 

780 

SGW 

790 

GWl 

800 


ELSE  IF 

TO  THE 
ELSE 


LPRINT 
LPRINT 
LPRINT  TAB (12)  "SPECIFICATION  GROSS  WEIGHT" ; TAB ( 57 ) 

LPRINT  TAB (12)  "ROUGH  ESTIMATE  GROSS  WEIGHT" ; TAB (57) 

"ESTIMATE  OF  MANUFACTURER'S  EMPTY 


LPRINT  TAB (12) 
WEIGHT"; TAB (57)  WE 

810  LPRINT  TAB (12) 

LPRINT  TAB (12) 

LPRINT  TAB (12) 

LPRINT  TAB (12) 

LPRINT  TAB (12) 

LPRINT  TAB (12) 

LPRINT  TAB (12) 


820 
830 
840 
850 
860 
870 
880 
890 


LPRINT  TAB (12) 
LPRINT  TAB (12) 


"MAXIMUM  TIP  VELOCITY"; TAB (57)  VTIPMAX 
"ROTOR  RADIUS"; TAB (57)  R 
"ROTATIONAL  VELOCITY" ; TAB (57 )  OMEGA 
"THRUST  COEFFICIENT"; TAB (57)  CT 
"BLADE  SOLIDITY" ;TAB(57)  SIGMA 
"NUMBER  OF  MAIN  ROTOR  BLADES" ; TAB (57 ) 
"BLADE  CHORD"; TAB (57)  C 
"BLADE  ASPECT  RATIO" ; TAB (57 )  AR 
"AVERAGE  LIFT  COEFFICIENT" ; TAB (57 )  CL 


B 
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900  LPRINT  TAB (12) 

CLALPHA 

910  LPRINT  TAB (12) 

92  0  LPRINT  TAB (12) 

93  0  LPRINT  TAB (12) 
940  LPRINT  TAB (12) 
950  LPRINT  TAB (12) 
MAXFVEL 
960  LPRINT  TAB (12) 

LPRINT  TAB (12) 


"BLADE  LIFT  CURVE  SLOPE" ; TAB (57) 

'BLADE  DRAG  COEFFICIENT" ; TAB (57)  CDO 
•DISC  LOADING"; TAB (57)  DL(N-l) 
'MAXIMUM  ADVANCE  RATIO" /TAB (57)  MU 
'MAXIMUM  BLADE  LOADING" ; TAB (57)  MBL 
'MAXIMUM  FORWARD  VELOCITY" ; TAB (57) 

'TIPL0SS";TAB(57)  TIPLOSS 

'INDUCED  POWER  IN  HOVER  OGE";TAB(57) 


LPRINT 
LPRINT 


TAB (12) 
TAB (12) 


'PROFILE  POWER  IN  HOVER  OGE";TAB(57)  PO 
'TOTAL  POWER  IN  HOVER  0GE";TAB(57)  PT 
"FIGURE  OF  MERIT"; TAB (57)  FM(N-l) 
"PERCENT  INDUCED  POWER" ; TAB (57) 


"TOTAL  POWER  IN  HOVER  IGE";TAB(57)  PTI 
"EQUIVALENT  FLAT  PLATE  AREA" ;TAB (57) 


LCOPY: LPRINT  CHR$ 


(12) : RETURN  660 
***  CHAPTER  THREE 


SUBROUTINES  *** 


970 
PIN 

980  LPRINT  TAB (12) 

990  LPRINT  TAB (12) 

1000  LPRINT  TAB (12) 

1010  LPRINT  TAB (12) 

PERINDP 

102  0  LPRINT  TAB (12)  "INDUCED  POWER  IN  HOVER  IGE";TAB(57) 

PINI 

1030 

1040 

EFPA 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

550) 

1150 

1160 

1170 

1180 

7,16 


***  SECTION  3.1  *** 


TIPLOSS  =  1  -  (SQR(2*CT) 
IF  SGW>25000  THEN  W1=GW1 
PIN  =  (Wl^l.5)  / 


/  B) 

ELSE 


W1=SGW 


PO  =  (RH0*CD0*B*C*(R^4) * (OMEGA 
PT  =  PIN  +  PO 
HP  =  PT 


(SQR(2*RHO*PI*(R^2) )  *  TIPLOSS  * 
3) )  /  (8  *  550) 


CLS: LOCATE  5, 3  0,1: PRINT  "***  SECTION  3.1  ***": LOCATE 
1: PRINT  "-FIRST  ESTIMATE  OF  POWER  REQUIRED  TO  HOVER 

OGE-": LOCATE  9,26,1: PRINT  "INDUCED  POWER  ="; PIN: LOCATE 

11,2  6,1: PRINT  "PROFILE  POWER  =";P0 

1190  LOCATE  13,26,1:PRINT  "TOTAL  POWER  =";PT:GOSUB  60:IF 
THEN  GOTO  1200  ELSE  RETURN  440 


***  SECTION  3.2  *** 


X=12 

1200 

1210 

1220 

1230 

1240 

1250  A2=l: CLS: LOCATE  5, 27,1: PRINT  "***  SECTION  3.2  MENU 

***": LOCATE  7, 2 3,1: PRINT  "-PRELIMINARY  POWER  CALCULATIONS - 

": LOCATE  9, 2  7,1: PRINT  "***  WEIGHT  CATEGORIES  ***": LOCATE 

12, 17,1: PRINT  "1.   LIGHT  HELICOPTER  LESS  THAN  3000  lbs" 
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12  60  LOCATE  14 , 17 , 1 : PRINT  "2.   MEDIUM  HELICOPTER  BETWEEN 
3  000  -  25,000  lbs": LOCATE  16 , 17 , 1 : PRINT  "3.   HEAVY 
HELICOPTER  GREATER  THAN  2  5,0  00  lbs" 

12  7  0  LOCATE  23 , 26 , 1 : INPUT  "WHICH  CATEGORY  DO  YOU 

WANT" ;Y:CLS: LOCATE  10 , 15 , 1 : INPUT  "FROM  HD-7  ESTIMATE  FUEL 

CAPACITY  (LBS)  AND  ENTER" ; FUEL: LOCATE  12 , 15 , 1 : INPUT  "ENTER 

NUMBER  OF  CREW  AND  OTHER 

PERSONNEL"; PEOPLE :N=1:PAX=PE0PLE*2 50  ' 

1280  LOCATE  14 , 15 , 1 : INPUT  "ENTER  SPECIFICATION  USEFUL 

LOAD" ;UL: LOCATE  16 , 15 , 1 : INPUT  "ENTER  WEIGHT  OF  ANY  SPECIAL 

AVIONICS  EQUIPMENT" /SPECIAL: LOCATE  18 , 15 , 1 : INPUT  "ENTER 

ESTIMATE  OF  NUMBER  OF  ENGINES" ; ENGINE 

1290  LOCATE  22 , 32 , 1 : INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="y" 

THEN  GOTO  1250  ELSE  IF  A$="Y"  GOTO  1250  ELSE  IF  A$="n" 

GOTO  1310  ELSE  IF  A$="N"  GOTO  1310  ELSE 

1300  LOCATE  23 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again": LOCATE  22 , 50, 1 : PRINT  "  " : GOTO  1290 

1310  S  =  B*C*R:IF  Y=l  THEN  GW ( 1) =173 . 701* (WE^ . 378 )  ELSE  IF 

Y=2  THEN  GW(1)=16239.43*LOG(WE)-130252.76#  ELSE  IF  Y=3 

THEN  GW(1)=4.975*(WE^.887) 

1320  IF  Y=l  THEN  GOSUB  3040  ELSE  IF  Y=2  THEN  GOSUB  3370 

ELSE  IF  Y=3  THEN  GOSUB  3  650 

1330  A2=0:IF  X=12  THEN  GOTO  1540  ELSE  RETURN  440 

1340  ' 

1350  ' 

13  60  '  ***  PRINT  WEIGHT  ESTIMATION  TABLE  *** 
1370  ' 

1380  ' 

13  9  0  CLS: LOCATE  1,30,1: PRINT  "WEIGHT  ESTIMATION 

TABLE": LOCATE  3, 42,1: PRINT  " ITERATION  

": LOCATE  4, 42,1: PRINT  "FIRST  SECOND 

THIRD" :LOCATE  6,1,1:PRINT  "1.   ROTOR: ", 'TAB (41)  W(l,l) 
TAB (55)  W(l,2)  TAB (70)  W(l,3) 

1400  PRINT  "2.   TAIL   ROTOR: ", 'TAB (41)  W2A(1)  TAB(55) 
W2A(2)  TAB(70)  W2A(3):PRINT  "  STRUCTURE: " ;TAB (41) 

W2B(1)  TAB(55)  W2B(2)  TAB(70)  W2B(3):PRINT  "3. 
BODY:"7TAB(41)  W(3,l)  TAB(55)  W(3,2)  TAB(70)  W(3,3) 
1410  PRINT  "4.   LANDING  GEAR: " ;TAB (41)  W(4,l)  TAB(55) 
W(4,2)  TAB(70)  W(4,3):PRINT  "5.   NACELLE :" ;TAB (41)  W(5,l) 
TAB (55)  W(5,2)  TAB (70)  W(5,3) 

14  2  0  PRINT  "6.   PROPULSION  ENGINE :" ;TAB (41)  W6A(1)  TAB (55) 
W6A(2)  TAB(70)  W6A ( 3 ) : PRINT  TAB ( 16)  "DRIVE: " ;TAB (41) 
W6B(1)  TAB(55)  W6B(2)  TAB(70)  W6B (3) : PRINT  TAB (16)  "FUEL 
TANKS:", -TAB (41)  W6C(1)  TAB(55)  W6C(2) 

14  3  0  LOCATE  14 , 70 , 1 : PRINT  W6C(3):PRINT  "7.   FLIGHT 
CONTROLS: ";TAB( 41)  W(7,l)  TAB(55)  W(7,2)  TAB(70) 
W(7,3):PRINT  "8.   AUXILIARY  POWER: " ;TAB (41)  W(8,l)  TAB(55) 
W(8,2)  TAB(70)  W(8,3):PRINT  "9.   INSTRUMENTS :" ;TAB (41) 
W(9,l)  TAB(55)  W(9,2)  TAB(70)  W(9,3) 

1440  PRINT  "10.  HYDRAULICS :";TAB (41)  W(10,l)  TAB(55) 
W(10,2)  TAB(70)  W(10,3) :PRINT  "11.  ELECTRICAL: "; TAB (41) 
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W(ll,l)  TAB(55)  W(ll,2)  TAB(70)  W(ll, 3) : PRINT  "12. 

AVIONICS :";TAB (41)  W(12,l)  TAB(55)  W(12,2)  TAB(70) 

W ( 12 , 3 ) : PRINT  " 13 .  FURNISHINGS : " 

1450  LOCATE  21 , 41 , 1 : PRINT  W(13,l)  TAB(55)  W(13,2)  TAB(70) 

W(13,3) :PRINT  "14.  AIR  &  ICE : " ;TAB (41)  W(14,l)  TAB(55) 

W(14,2)  TAB (70)  W(14 , 3 ) : PRINT  "15.  LOAD  & 

HANDLING:", -TAB (41)  W(15,l)  TAB(55)  W(15,2)  TAB(70)  W(15,3) 

1460  IF  X=14  THEN  GOTO  1470  ELSE  IF  X=15  THEN  GOTO  1470 

ELSE  N=N+1 

1470  IF  X=14  THEN  GOTO  1480  ELSE  IF  X=15  THEN  GOTO  1480 

ELSE  IF  N<1  THEN  GOTO  1480  ELSE  WE(N)=0:FOR  1=1  TO 

15:WE(N)=W(I, (N-1) )+WE(N) :NEXT  I :GW(N) =WE (N) +UL+FUEL+PAX 

1480  IF  AP=1  THEN  LCOPY:GOTO  1490  ELSE  GOSUB  60 

1490  CLS: LOCATE  10 , 15 , 1 : PRINT  "THE  NEW  MANUFACTURER'S 

EMPTY  WEIGHT  =" ;WE (N) : LOCATE  12 , 15 , 1: PRINT  "THE  NEW  GROSS 

WEIGHT  =";GW(N):IF  AP=1  THEN  LCOPY:LPRINT  CHR$  (12): RETURN 

690  ELSE  GOSUB  60 

1500  IF  AB=1  THEN  RETURN  2510  ELSE  IF  AB=2  THEN  RETURN 

4060  ELSE  IF  A5=l  GOTO  2100  ELSE  IF  X=12  GOTO  1540  ELSE 

RETURN  44  0 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 


***  SECTION  3.3  *** 


7,28 


DL(N) 

CLS : LOCATE 

1 : PRINT 


GW(N)  / 


5,30 


IF  X7=l 


(PI*R^2) 
.1: PRINT  "***  SECTION  3.3  ***": LOCATE 
"-VALIDATE  DISC  LOADING-" 
THEN  CLS: GOTO  1600  ELSE 

"THE  NEW  GROSS  WEIGHT 
PRINT  "HAS  A  DISC  LOADING 
PRINT  "ORIGINAL  DISC  LOADING 


1590 

1600  LOCATE  10 , 24 , 1: PRINT 

OF: " ;GW(N) : LOCATE  11,24,1 

OF: ";DL(N) : LOCATE  13,2  0,1 

FROM  FIGURE  2-2  ="DL 

1610  LOCATE  16, 2  0,1: INPUT  "DO  YOU  WANT  TO  MAKE  ANY 

MODIFICATIONS  (Y/N) " ;A$ : IF  A$="y"  THEN  GOTO  163  0  ELSE  IF 

A$="Y"  GOTO  1630  ELSE  IF  A$="n"  GOTO  1700  ELSE  IF  A$="N" 

GOTO  1700  ELSE 

INPUT  "you  must  enter  (y/n)  try 
THEN  GOTO  1630  ELSE  IF  C$="Y"  GOTO 
GOTO  1700  ELSE  IF  C$="N"  GOTO  1700 


24,25,1 


162  0  LOCATE 
again" ;C$: IF  C$="y' 
1630  ELSE  IF 
ELSE  GOTO  1620 

163  0  CLS: LOCATE  10 , 10 , 1 : INPUT  "DO  YOU  WANT  TO  CHANGE  DISC 
LOADING" ;A$: IF  A$="Y"  THEN  GOTO  1660  ELSE  IF  A$="y"  GOTO 
1660  ELSE 

1680  ELSE  IF  A$="n"  GOTO  1680  ELSE 
PRINT  "you  must  enter  (y/n)  try 


GOTO 


,27,1 


1640  IF  A$="N" 
1650  LOCATE  2  3 
again": GOTO  1630 
1660  LOCATE  12,10,1 
1700 


INPUT  "ENTER  NEW  DISC  LOADING" ; DL: GOTO 
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***  SECTION  3.4  *** 


1670  R=SQR(GW(N)/(DL*PI)  )  :  OMEGA=VTIPMAX/R:  CT=GW  (N)  /  (P.I* 

(R^2) *RHO* ( (OMEGA*R) ^2) ) : SIGMA=CT/MBL: C= (SIGMA*PI*R) /B: AR= 

R/C:CL=(CT*6)/SIGMA 

1680  CLS: LOCATE  5, 10,1: PRINT  "THE  NEW  ROTOR  RADIUS 

IS :";R: LOCATE  8, 10,1: PRINT  "THE  FOLLOWING  VARIABLES  HAVE 

CHANGED  TO  THESE  NEW  VALUES :": LOCATE  10 , 10 , 1 : PRINT 

"ROTATIONAL  VELOCITY  =";OMEGA 

1690  LOCATE  11, 10 , 1 : PRINT  "THRUST  COEFFICIENT  =";CT: PRINT 

TAB(IO)  "BLADE  SOLIDITY  ="; SIGMA: PRINT  TAB(IO)  "CHORD 

=";C: PRINT  TAB (10)  "ASPECT  RATIO  =";AR: PRINT  TAB (10)  "LIFT 

COEFFICIENT  =";CL:GOSUB  60 

1700  IF  X7=l  THEN  RETURN  2440  ELSE  IF  X=12  THEN  GOTO  1730 

ELSE  RETURN  44  0 

1710 

1720 

1730 

1740 

1750 

17  60  BBBB=FRE("") 
1770  E=l 

1780  GOSUB  4010:GOSUB 

4  02  0:FM(N)=FM:WE4(0)=WE(N) :GW4 (0) =GW(N) 

1790  CLS: GOSUB  3960: LOCATE  4, 56,1: PRINT  "OPTIONS" : LOCATE 

7,42,1: PRINT  "1.   INCREASE  LENGTH  OF  ROTOR  CHORD" : LOCATE 

9,42,1: PRINT  "2.   REDUCE  ROTATIONAL  VELOCITY" : LOCATE 

11, 4 2,1: PRINT  "3.   CHANGE  ROTOR  RADIUS" : LOCATE 

13,4  2,1: PRINT  "4.   NO  CHANGES" 

1800  AZ=0: LOCATE  16 , 50 , 1 : INPUT  "SELECT  OPTION" ;W: IF  W=l 

THEN  GOTO  1860  ELSE  IF  W=2  GOTO  1870  ELSE  IF  W=3  GOTO  1880 

ELSE  IF  W=4  GOTO  1820 

1810  LOCATE  16, 42,1: INPUT  "number  must  be  between  1-4  try 

again" ;W: IF  W=l  THEN  GOTO  1860  ELSE  IF  W=2  GOTO  1870  ELSE 

IF  W=3  THEN  GOTO  1880  ELSE  IF  W=4  GOTO  1820  ELSE  GOTO  1810 

1820  IF  X7=l  THEN  RETURN  2460  ELSE  IF  X=12  THEN  GOTO  2060 

ELSE  RETURN  44  0 

1830  IF  X=7  THEN  RETURN  2460  ELSE  IF  X=ll  THEN  GOTO  2060 

ELSE  RETURN  44  0 

1840  AZA=1:N4=N:N=20:GW(N)=GW(N4) :S=B*C*R:IF  Y=l  THEN 

GOSUB  3040  ELSE  IF  Y=2  THEN  GOSUB  3370  ELSE  IF  Y=3  THEN 

GOSUB  3650 

1850  EE=EE+1:WE4(EE)=0:FOR  1=1  TO  15 :WE4 (EE) =W(I ,N) + 

WE4(EE) :NEXT 

I : GW4 ( EE ) =WE4 (EE) +UL+FUEL+PAX : N=N4 : AZA=0 : RETURN 

1860  LOCATE  20 , 45 , 1 : INPUT  "ENTER  NEW  BLADE  CHORD 

LENGTH" ;C:E=E+1:ZZ=1:ZA=0: GOSUB  240:GOSUB  4010:GOSUB 

4020:GOSUB  1840:GOSUB  1890:GOTO  1920 

1870  E=E+1:ZZ=1:ZA=1: GOSUB  130:GOSUB  4010:GOSUB  4020:GOSUB 

1840:GOSUB  1890:GOTO  1920 

18  8  0  LOCATE  20 , 45 , 1 : INPUT  "ENTER  NEW  ROTOR 
RADIUS" ;R:E=E+1:ZZ=1:ZA=0: GOSUB  240:GOSUB  4010:GOSUB 
4020:GOSUB  1840:GOSUB  1890:GOTO  1920 
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1890  FOR  1=7  TO  11: LOCATE  I, 25,1: PRINT  " 

":NEXT  I: FOR  1=15  TO  22: LOCATE  I, 25,1: PRINT  " 

":NEXT  I 

1900  LOCATE  7,25,1:PRINT  PIN (1) : LOCATE  8,25,1:PRINT 

P0(1):L0CATE  9,25,1:PRINT  PT(1):L0CATE  10 , 25 , 1 : PRINT 

FM: LOCATE  11, 25 , 1: PRINT  PERINDP: LOCATE  15 , 25 , 1: PRINT 

WE4(EE) : LOCATE  16 , 25 , 1 : PRINT  GW4 (EE) : LOCATE  17 , 25 , 1 : PRINT 

OMEGA: LOCATE- 18,25,1: PRINT  CT 

1910  LOCATE  19, 25,1: PRINT  SIGMA: LOCATE  20 , 25 , 1 : PRINT 

R: LOCATE  21, 25 , 1 : PRINT  C: LOCATE  22 , 25 , 1 : PRINT  AR: LOCATE 

23,25,1: PRINT  CL:RETURN 

192  0  FOR  1=3  TO  23: LOCATE  I, 4 1,1: PRINT  " 

":NEXT  I: LOCATE  4,56,1: PRINT  "OPTIONS" : LOCATE  7,42,1: PRINT 
"1.   INCREASE  LENGTH  OF  ROTOR  CHORD" : LOCATE  9,42,1: PRINT 
"2.   REDUCE  ROTATIONAL  VELOCITY" : LOCATE  11,42,1 

193  0  PRINT  "3.   CHANGE  ROTOR  RADIUS" : LOCATE  13 , 42 , 1 : PRINT 
"4.   LIST  FIRST  &  LAST  SET  OF  PARAMETERS" : LOCATE 

15, 42,1: PRINT  "5.   NO  CHANGES" : LOCATE  18 , 50 , 1 : INPUT 

"SELECT  OPTION" ;W: IF  W=l  THEN  GOTO  1860  ELSE  IF  W=2  GOTO 

1870  ELSE  IF  W=3  GOTO  1880  ELSE 

1940  IF  W=4  GOTO  1960  ELSE  IF  W=5  GOTO  1820  ELSE 

1950  LOCATE  20 , 42 , 1 : INPUT  "number  must  be  between  1-5  try 

again" ;W: IF  W=l  THEN  GOTO  1860  ELSE  IF  W=2  GOTO  1870  ELSE 

IF  W=3  GOTO  1880  ELSE  IF  W=4  GOTO  1960  ELSE  IF  W=5  GOTO 

440  ELSE  GOTO  1950 

19  60  FOR  1=3  TO  23: LOCATE  I, 41,1: PRINT  " 

":NEXT  I 

1970  NN=42:EE=l:FOR  1=1  TO  2 : IF  1=1  THEN  LOCATE 

4, 4 2,1: PRINT  "ORIGINAL" : LOCATE  5, 4 2,1: PRINT  "PARAMETERS" 

ELSE  LOCATE  4, 60,1: PRINT  "LAST  SET  OF": LOCATE  5, 60,1: PRINT 

"PARAMETERS" 

1980  LOCATE  7,NN,1:PRINT  PIN (EE) : LOCATE  8,NN,1:PRINT 

PO(EE) :LOCATE  9,NN,1:PRINT  PT (EE) : LOCATE  10 ,NN, 1 : PRINT 

FM ( EE ) : LOCATE  1 1 , NN , 1 : PRINT  PERINDP ( EE ) : LOCATE 

15,NN,1:PRINT  WE4 (EE-1) : LOCATE  16 ,NN, 1 : PRINT  GW4 (EE- 

1): LOCATE  17, NN,1: PRINT  OMEGA (EE) 

1990  LOCATE  18 ,NN, 1 : PRINT  CT (EE) : LOCATE  19 ,NN, 1 : PRINT 

SIGMA (EE) : LOCATE  20 ,NN, 1 : PRINT  R(EE):LOCATE  21, NN, 1 : PRINT 

C(EE):LOCATE  22 , NN, 1 : PRINT  AR(EE) : LOCATE  23 ,NN, 1 : PRINT 

CL(EE) :NN=60:EE=E-1:NEXT  I : GOSUB  2000:GOTO  1920 

2000  LOCATE  25 , 45 , 0 : PRINT  "**  press  any  key  to  continue 

2010  A$=INKEY$:IF  A$=""  THEN  2000 

2020  LOCATE  25 , 45 , 0 : PRINT  " 
II 

2  03  0  RETURN 
2040  ' 
2050  ' 
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2060  '  ***  SECTION  3.5  *** 

2070  ' 

2080  ' 

2090  IF  Y=l  THEN  A5=1:G0SUB  3040  ELSE  IF  Y=2  THEN 

A5=1:G0SUB  3370  ELSE  IF  Y=3  THEN  A5=1:G0SUB  3650 

2100  AC=0:IF  X=12  THEN  GOTO  2120  ELSE  RETURN  440 

2110  • 

212  0'  ' 

2130  '  ***  SECTION  3.6  *** 

2140  ' 

2150  ' 

2160  CLS: LOCATE  2, 30,1: PRINT  "***  SECTION  3.6  ***": LOCATE 

3, 3 0,1: PRINT  "-LANDING  GEAR-" : LOCATE  6, 3  0,1: PRINT  "LANDING 

GEAR  OPTIONS": LOCATE  9,25,1: PRINT  "1.   SKIDS" : LOCATE 

11,25,1: PRINT  "2.   FIXED  LANDING  GEAR" 

217  0  LOCATE  13 , 25 , 1 : PRINT  "3.   RETRACTABLE  GEAR" 

2180  LOCATE  16 , 28 , 1 : INPUT  "SELECT  LANDING  GEAR 

OPTION" ;GR: IF  GR=1  THEN  GOTO  219  0  ELSE  IF  GR=2  GOTO  22  00 

ELSE  IF  GR=3  GOTO  2210  ELSE  LOCATE  18 , 24 , 1 : PRINT  "number 

must  be  between  1-3  try  again" : LOCATE  16, 55 , 1: PRINT  " 

":GOTO  217  0 

219  0  AA=1:IF  B=2  THEN  FL=2  ELSE  FL=4:G0T0  22  2  0 

22  00  AA=2:IRLG  =  1 : LOCATE  20 , 30 , 1 : INPUT  "NUMBER  OF  LANDING 

GEAR" ;NW: GOTO  2  22  0 

2  210  AA=2:IRLG  =  2 : LOCATE  20 , 30 , 1 : INPUT  "NUMBER  OF  LANDING 

GEAR" ;NW: GOTO  2  22  0 

2220  LOCATE  23 , 30 , 0 : INPUT  "ANY  CHANGES  (Y/N)";B$:IF  B$="Y" 

THEN  GOTO  2160  ELSE  IF  B$="y"  GOTO  2160  ELSE  IF  B$="N" 

GOTO  2240  ELSE  IF  B$="n"  GOTO  2240  ELSE 

22  3  0  LOCATE  25 , 27 , 0 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  2220 

2240  A5=0:IF  X=12  THEN  GOTO  2250  ELSE  RETURN  440 

2250 

2260 

2270 

2280 

2290 

2300  GOSUB  4010 

2310  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  3.7  ***": LOCATE 

7, 16,1: PRINT  "-THIRD  ESTIMATE  OF  POWER  REQUIRED  TO  HOVER 

OGE-": LOCATE  9,26,1: PRINT  "INDUCED  POWER  ="; PIN: LOCATE 

11, 2  6,1: PRINT  "PROFILE  POWER  =";P0 

232  0  LOCATE  13 , 26 , 1 : PRINT  "TOTAL  POWER  =";PT: GOSUB  60: IF 

X=12  THEN  GOTO  2  3  60  ELSE  RETURN  44  0 

2330  • 

2340  • 


***  SECTION  3.7  *** 
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2350  '  ,***  SECTION  3.8  *** 

2360  ' 

2370  ' 

2380  BBBB=FRE("") 

2390  A7=1:CLS: LOCATE  5, 3  0,1: PRINT  "***  SECTION  3.8 

***": LOCATE  7, 18,1: PRINT  "-GROSS  WEIGHT  AND  HOVER  POWER 

ITERATIONS-" :PT(N)=PT:FM(N)=FM: LOCATE  10,4,1:PRINT  "IF 

DISC  LOADING  OR  FIGURE  OF  MERIT  EXCEED  THEIR  DEFINED  LIMIT 

THE  PROGRAM" 

24  00  LOCATE  11, 4,1: PRINT  "WILL  AUTOMATICALLY  GO  TO  SECTION 

3.3  OR  3.4  TO  ALLOW  CORRECTIONS  AND  RETURN" :GOSUB 

60: LOCATE  23, 1,0: PRINT  "~W=COMP/" :N=N+1 :GW(N) =GW(N-1) 

2410  AZ=1:IF  Y=l  THEN  GOSUB  3040  ELSE  IF  Y=2  THEN  GOSUB 

3370  ELSE  IF  Y=3  THEN  GOSUB  3650 

2420  WE(N)=0:FOR  1=1  TO  15 :WE (N) =W(I, (N) ) +WE (N) :NEXT 

I : GW (N) =WE (N) +UL+FUEL+PAX 

2430  GOSUB  4010 : PT (N) =PT: FM(N) =FM: DL(N) =GW(N)/ (PI*R^2 ) : IF 

DL(N)>DL  THEN  X7=l: GOSUB  1590 

2440  IF  FM(N)<  .7  THEN  GOSUB  1790  ELSE  IF  Y=3  THEN  GOSUB 

2450  ELSE  IF  FM(N)>  .8  THEN  GOSUB  1790  ELSE 

2450  IF  FM(N)>.85  THEN  GOSUB  1790 

2460  PERDIFW  =  (ABS (GW(N) -GW (N-1) ) /GW (N) ) *100 : PERDIFP  = 

(ABS(PT(N) -PT(N-l) )/PT(N)  )  *100 

2470  IF  PERDIFW  <  10  THEN  GOTO  2480  ELSE  GW(N)=GW(N- 

1) :GOTO  2410 

2480  IF  PERDIFP  <  10  THEN  GOTO  2490  ELSE  GW(N)=GW(N- 

1) :GOTO  2410 

2490  W(1,3)=W(1,N) :W(2,3)=W(2,N) : W2A (3 ) =W2A (N) :W2B(3)= 

W2B(N) :W(3,3)=W(3,N) :W(4,3)=W(4,N) :W(5,3)=W(5,N) :W(6,3)=W( 

6,N) :W6A(3)=W6A(N) : W6B (3 ) =W6B (N) : W6C (3 ) =W6C (N) :W(7,3)=W(7, 

N) :W(8,3)=W(8,N) :W(9,3)=W(9,N) :W(10,3)=W(10,N) :W(11,3)=W(1 

1,N) :W(12,3)=W(12,N) 

2500  W(13,3)=W(13,N) :W(14 , 3) =W(14 ,N) :W(15 , 3) =W(15 ,N) :AB=1: 

GOSUB  1390 

2510  A7=0:AB=0:CLS: LOCATE  10 , 2  0, 1: PRINT  "PERCENT 

DIFFERENCE  IN  WEIGHT  ="; PERDIFW: LOCATE  12 , 20 , 1: PRINT 

"PERCENT  DIFFERENCE  IN  POWER  ="; PERDIFP : ITER=N-4 : LOCATE 

14, 2 0,1: PRINT  "NUMBER  OF  ITERATIONS  ="; ITER: GOSUB  60: IF 

X=12  THEN  GOTO  2540  ELSE  RETURN  440 

2520 

2530 

2540 

2550 

2560 

2570  CLS: LOCATE  2, 30, 2: PRINT  "***  SECTION  3.9  ***": LOCATE 

3,22,1: PRINT  "-POWER  REQUIRED  TO  HOVER  IGE,  SSL-": LOCATE 

10, 10,1: INPUT  "FROM  HD-7  ESTIMATE  ROTOR  HEIGHT  ABOVE 

GROUND  AND  ENTER" ;RH:H=RH+5 : D=2*R 

2580  PINT  =  ( (-.1276*( (H/D)^4)  +  . 708* ( (H/D) ^3 )  -  1.4569* 

((H/D)^2)  +  1.3432*(H/D)  +  .5147)  *  PIN) : PTI=PINI+PO 
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***  SECTION  3.9  *** 


2  59  0  LOCATE 

IGE  =";PINI: 

HOVER  IGE  =" 

RETURN  44  0 

2600 

2610 

2620 

2630 

2640 

2650 


14, 18,1; PRINT  "INDUCED  POWER  REQUIRED  TO  HOVER 


LOCATE 
;PTI:GOSUB 


16,18,1 


PRINT  "TOTAL  POWER  REQUIRED  TO 
60: IF  X=12  THEN  GOTO  2620  ELSE 


***  SECTION  3.10  *** 


3,20 


CLS: LOCATE  2, 3  0,1: PRINT  "***  SECTION  3.10  ***": LOCATE 
2: PRINT  "-EQUIVALENT  FLAT  PLATE  AREA  (HORIZONTAL) - 
": LOCATE  8,30,1: PRINT  "TABLE  III  OPTIONS" : LOCATE 
10, 32,1: PRINT  "1.   OBSERVER" : LOCATE  11, 32 , 1 : PRINT  "2. 
ATTACK  I" 

2  660  LOCATE  12 , 32 , 1 : PRINT  "3.   ATTACK  II": LOCATE 
13, 32,1: PRINT  "4.   UTILITY  I": LOCATE  14 , 32 , 1 : PRINT  "5. 
UTILITY  II": LOCATE  15 , 32 , 1 : PRINT  "6.   TRANSPORT" : LOCATE 
18, 26,1: INPUT  "WHICH  MISSION  DO  YOU  WANT" ;M 
2670  IF  M=l  THEN  GOTO  2680  ELSE  IF  M=2  GOTO  2690  ELSE  IF 
M=3  THEN  EFPA=3  4.98:GOTO  2730  ELSE  IF  M=4  GOTO  2700  ELSE 
IF  M=5  THEN  EFPA=27 . 81625 : GOTO  2730  ELSE  IF  M=6  GOTO  2710 
2680  IF  GR>1  THEN  EFPA=13 . 12  2 : GOTO  2730  ELSE 

15:G0T0  2730 

GR>2  THEN  EFPA=2  0 

88:GOTO  2730 

GR>2  THEN  EFPA=19 

06:GOTO  2730 
2710  LOCATE  20 , 20 , 1 : INPUT  "IS  THE  FUSELAGE  NOSE 
ROUND  OR  STREAMLINE  (R/S)";A$:IF  A$="R"  THEN 
EFPA=4  8.3181:GOTO  2730  ELSE  IF  A$="r"  THEN 
EFPA=4  8.3181:GOTO  2730  ELSE  IF  A$="S"  THEN 

EFPA=46.33785:GOTO  2730  ELSE  IF  A$="s"  THEN  EFPA=46 . 33785 
2720  GOTO  2730  ELSE  LOCATE  24 , 25 , 1 : PRINT  "you  must  enter 
(R/S)  try  again": GOTO  2710 


EFPA=12 , 
2690  IF 
EFPA=2  0, 
2700  IF 
EFPA=2  0, 


0448:GOTO  2730  ELSE 


2576:GOTO  2730  ELSE 


SHAPE 


27  3  0  LOCATE 

=";EFPA:GOSUB 

2740 

2750 

2760 

2770 

2780 

2790 

2800 


22,23,1 


PRINT  "EQUIVALENT  FLAT  PLATE  AREA 
60: IF  X=12  THEN  GOTO  2760  ELSE  RETURN  440 


***  SECTION  3.11  *** 


3,20 


11  ***": LOCATE 
MACH  NUMBER- 


BBB=FRE("") 

CLS: LOCATE  2, 3  0,1: PRINT  "***  SECTION  3 
1: PRINT  "-TOTAL  POWER  REQUIRED  AND  TIP 
":RHO(l)=RHO:M(l)=1116.89 

2810  LOCATE  10 , 23 , 1 : INPUT  "ENTER  SPECIFICATION  CRUISE 
SPEED" ;CRUISEV: LOCATE  12 , 23 , 1 : INPUT  "ENTER  SPECIFICATION 
ALTITUDE" ;ALT: LOCATE  14 , 23 , 1 : INPUT  "ENTER  SPECIFICATION 
TEMPERATURE" ;TEMP 
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2820  LOCATE  23 , 32 , 2 : INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="Y" 

THEN  GOTO  2800  ELSE  IF  A$="y"  GOTO  2800  ELSE  IF  A$="N" 

GOTO  2840  ELSE  IF  A$="n"  GOTO  2840  ELSE 

2  83  0  LOCATE  24 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again": LOCATE  23 , 50, 1: PRINT  "        ":GOTO  282  0 

2840  LOCATE  23 , 32 , 1 : PRINT  " 

": LOCATE  2 3, 1,0: PRINT  "~W=COMP/" 

2850  M(2)=SQR(2400.82388#*(459.688+TEMP) ) :RHO (2 ) =RHO ( 1) * 

( (1- (6. 8753  5) *( 10^-6 )*ALT) ^5. 2561) *518. 688/ ( 459. 688+TEMP) 

:CRU=CRUISEV:CRU1=CRU/2  0:CRU2=FIX(CRU1)+1:MAXF=MAXFVEL:MAX 

Fl=MAXF/2  0 : MAXF2=FIX (MAXFl) +1 : MAXCRU= (MAXF-CRU) /2  0 

2860  MAXCRU1=FIX(MAXCRU) :FOR  1=1  TO  2 : J=0 : LL=1 : FOR  K=l  TO 

CRU2:G0SUB  3000:J=J+20:LL=LL+1:NEXT  K, I : J (1) =J: IF 

CRU1=FIX(CRU1)  THEN  CRU3=CRU2 : GOTO  2870  ELSE  FOR  1=1  TO 

2:CRU3=CRU2+l:J=CRU:GOSUB  3  000: NEXT  I : LL=LL+1 : L1=LL: L2=LL- 

1 

2870  IF  MAXCRU1=>1  THEN  J=J(1):G0SUB  3020 

2880  IF  MAXF1=FIX (MAXFl)  THEN  MAXF3=MAXF2 : J=J (1) :GOTO  3020 

ELSE 

2890  FOR  1=1  TO  2 :MAXF3=MAXF2+1 : J=MAXF: GOSUB  3000:NEXT  I 

2900  LL=LL+1:F0R  1=1  TO  2 : J=MAXF+2  0 : GOSUB  3000:NEXT 

I:LL=LL-1 

2910  FOR  KK=1  TO  2 : GOSUB  2920:NEXT  KK:IF  AB=2  THEN  RETURN 

4060  ELSE  IF  AP=1  THEN  LPRINT  CHR$  (12) : RETURN  690  ELSE 

GOTO  44  0 

292  0  CLS: LOCATE  2, 3 3,1: PRINT  "MAIN  ROTOR  POWER" 

2930  IF  KK=1  THEN  LOCATE  4, 32,1: PRINT  "STANDARD  SEA 

LEVEL" : LOCATE  5, 2  0,1: PRINT  "ALTITUDE=  0  FT      TEMPERATURE 

=  59  DEG.  F"  ELSE 

2940  IF  KK=2  THEN  LOCATE  4, 30,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

2950  LOCATE  7,29,1: PRINT  " POWER  

II.  LOCATE  9,8,1:  PRINT  "AIRSPEED      TIP 

INDUCED      PROFILE      PARASITE      TOTAL" 

2960  LOCATE  10, 9,1: PRINT  "(knots)     MACH       (SHP) 

(SHP)         (SHP)         (SHP)" 

2970  A$="###.#":B$="#.###":C$="####.##":K=12:I=0:FOR  L=l 

TO  LL:LOCATE  K,9,1:PRINT  USING  A$ ;0 (L) : LOCATE  K,19,1:PRINT 

USING  B$;TM(KK,L) : LOCATE  K,29,1:PRINT  USING 

C$;PINF(KK,L) : LOCATE  K,41,1:PRINT  USING 

C$;POF(KK,L) : LOCATE  K,53,1:PRINT  USING  C$ ;PPF (KK, L) 

2980  LOCATE  K,65,1:PRINT  USING  C$ ;PTF (KK, L) : K=K+1 :NEXT  L 

2990  IF  AP=1  THEN  LCOPY:RETURN  ELSE  GOSUB  60:RETURN 

3000  CT=GW(N)/(PI*R^4*RH0(I) *0MEGA^2) :TIPL0SS=1- 

(SQR(2*CT)/B) :0(LL)=J:DA=(PI*R^2) :VF=J*1 . 687778 :VH2=GW(N) / 

(2*RH0(I)*DA) :MU1=VF/(0MEGA*R) : PINF (I , LL) = (GW(N) *SQR( ( (VF^ 

2)/(- 

VH2*2) )+SQR( ( (VF^2)/(2*VH2) ) ^2+1) ) *SQR(VH2) ) / (550*TIPLOSS) 

:A(GG)=J:B(GG)=PINF(I,LL) 
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3010  POF(I,LL)=( (SIGMA*CDO*RHO(I) *DA* ( (OMEGA*R) ^3) *(l+4.3* 

(MU1^2) ) )/44  00) :PPF(I,LL)=(RHO(I)*(VF^3)*EFPA)/1100:PTF(I, 

LL) =PINF ( I , LL) +POF ( I , LL) +PPF ( I , LL) : TM ( I , LL) = ( ( OMEGA*R) +VF ) 

/M ( I ) : RETURN 

3  02  0  IF  MAXCRU1>1  AND  MAXCRU1=MAXCRU  THEN 

MC=CINT(MAXCRUl/2)  ELSE  IF  MAXCRU1>1  THEN 

MC=CINT(MAXCRUl/2)+l  ELSE  IF  MAXCRU1=MAXCRU  THEN  MC=0  ELSE 

MC=MAXCRU1 

3030  L1=LL:F0R  1=1  TO  2 : J=J ( 1) : LL=L1 : FOR  K=l  TO  MC:GOSUB 

3  000:J=J+2  0:LL=LL+1:NEXT  K, I : L3=LL: GOTO  2890 

3040  • 

3050  ' 

3060  '  ***  WEIGHT  ESTIMATING  RELATIONSHIPS  *** 

3070  ' 

3080  ' 

3090  '  ***   LIGHT  HELICOPTER   *** 

3100  ' 

3110  ' 

3120  STT  =  .264  *  EXP ( . 0135*HP) 

3130  SB  =  194.274  *  LOG(GW(N))  -  1306.779 

3140  ' 

3150  ' 

3160  W(1,N)  =  408.562  *  LOG(S)  -  1142.917 

3170  W2A(N)  =  2.219  *  EXP ( . 0005*GW (N) ) 

3180  W2B(N)  =  19.131  *  LOG(STT)  -  32 . 414 : W(2 , N) =W2A (N) + 

W2B(N) 

3190  W(3,N)  =  .00901  *  SB^l.917 

3200  IF  AA=1  THEN  W(4,N)  =  . 0245* (GW (N) ^ . 8606) * (FL^ . 8046) 

ELSE  W(4,N)  =  -.0539  *  GW(N)  +  200.912 

3210  W(5,N)  =  34 

3220  W6A(N)  =  -8 . 959999E-02  *  HP  +  221.338 

3230  W6B(N)  =  17.19  *  EXP ( . 0008*GW (N) ) 

3240  W6C(N)  =  .384  *  (FUEL/6 . 5) ^1 . 071: W(6 , N) =W6A(N) +W6B (N) 

+W6C(N) 

3250  W(7,N)  =  1.28E-10*(GW(N)^3.469) 

3260  W(8,N)  =  0 

3270  W(9,N)  =  24.571  *  EXP ( . 0004*HP) 

3280  W(10,N)  =  0 

3290  W(11,N)  =  -51.0661  *  LOG(SB)  +  367.947 

3300  W(12,N)  =  105  +  SPECIAL 

3310  W(13,N)  =  19.8  *  (EXP ( . 372*PEOPLE)  +  EXP (- . 033*SB) ) 

3320  W(14,N)  =  -22.371  *  LOG(SB)  +  143.396 

3330  W(15,N)  =  0 

3  3  40  IF  AZ=1  THEN  RETURN  242  0  ELSE  IF  AZA=1  THEN  RETURN 

1850  ELSE  RETURN  1390 

3350  ' 

3360  • 
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3  370  •  ***   MEDIUM  HELICOPTER   *** 

3380  ' 

3390  ' 

3400  STT  =  .0376  *  HP  -  8.106 

3410  SB  =  636.081  *  EXP ( . 000011*GW (N) ) 

3420  ' 

3430  ' 

3440  W(-1,N)  =  11.0702  *  S  -168.888 

3450  W2A(N)  =  .00438  *  GW(N)  +  12.47 

3460  W2B(N)  =  2.411  *  STT  -  19 . 531:W(2 ,N)  =  W2A(N) +W2B (N) 

3470  W(3,N)  =  .282  *  SB^l.272 

3480  IF  AA=1  THEN  W(4 ,N) =. 0245* ( (GW(N) ) ^ . 8606) * (FL^ . 8046) 

ELSE  IF  AA=2  THEN  W(4,N)  =  . 4013* (GW (N) ^ . 6662 )* (NW^ . 536) * 

(IRLG^.1198)  ELSE  IF  GW(N)>6000  THEN  W(4,N)  =  301.577  * 

LOG(GW(N))  -  2319.89  ELSE  W(4,N)  =  .025  *  EXP(. 000062  * 

GW(N)  +  8.020001) 

3490  W(5,N)  =  .02  *  EXP(. 000062  *  GW(N)  +  8.020001) 

3500  IF  ENGINE=1  THEN  W6A(N)  =  130  +  .24  *  HP  ELSE  W6A(N) 

=  350.4  +  .19  *  HP 

3510  W6B(N)  =  741.46  *  LOG(HP)  -  4542.042 

3520  W6C(N)  =  363.24  *  LOG (FUEL/6 . 5)  -  1656 . 521 :W(6 ,N) = 

W6A (N) +W6B (N) +W6C (N) 

3530  W(7,N)  =  210.858  *  EXP(. 000059  *  GW(N)) 

3540  IF  ENGINES=1  THEN  W(8,N)  =  0  ELSE  W(8,N)  =  190 

3550  W(9,N)  =  56.0975  *  LOG(HP)  -  312.237 

3560  W(10,N)  =  .00362  *  GW(N)  +  11.553 

3570  W(11,N)  =  481.735  *  LOG(SB)  -  2794.53 

3580  W(12,N)  =  250  +  SPECIAL 

3590  W(13,N)  =  .175  *  SB  +  22  *  PEOPLE  -  10 

3600  W(14,N)  =  122.458  *  LOG(SB)  -730.252 

3610  W(15,N)  =  84.5 

3  62  0  IF  AZ=1  THEN  RETURN  242  0  ELSE  IF  AZA=1  THEN  RETURN 

1850  ELSE  RETURN  1390 

3630  • 

3640  • 

3650  ' 

3660  • 

3670  • 

3680  •  ***   HEAVY  HELICOPTER   *** 

3690  ' 

3700  ' 

3710  STT  =  60.127  *  EXP ( . 000145*HP) 

3720  SB  =  426.378  *  EXP ( . 000045*GW(N) ) 

3730  ' 

3740  ' 

3750  W(1,N)  =  707.174  *  EXP ( . 00539*B*C*R) 

3760  W2A(N)  =  324.55  *  LOG(GW(N))  -  3021.51 

3770  W2B(N)  =  -18!  +  2.83  *  STT: W(2 ,N) =W2A(N) +W2B (N) 

3780  W(3,N)  =  2.9818  *  SB  -  1321.921 

3790  IF  AA=2  THEN  W(4,N)  =  . 4013* (GW(N) ^ . 6662 )* (NW^ . 536) 

*(IRLG^.1198)  ELSE  W(4,N)  =  258.358  *  EXP(. 000041  *  GW(N)) 
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3800  W(5,N)  =  .014  *  (.2041  *  GW(N))^1.136 

3810  W6A(N)  =  348  +  .91  *HP 

3820  W6B(N)  =  .999  *  HP^.959 

3830  W6C(N)  =  454.619  *  (FUEL/6 . 5) ^ (-. 0566) :W(6 ,N) = 

W6A (N) +W6B (N) +W6C (N) 

3840  W(7,N)  =  .00334  *  GW(N)^1.224 

3850  W(8,N)  =  139 

3860  W(9,N)  =  68.266  *  LOG(HP)  -  387.598 

3870  W(10,N)  =  6.63E-07  *  GW(N)^1.863 

3880  W(11,N)  =  9.78  *  SB^.539 

3890  W(12,N)  =  325  +  SPECIAL 

3900  W(13,N)  =  .159  *  SB  +  18.11  *  PEOPLE 

3910  W(14,N)  =  117.771  *  LOG(SB)  -  710.594 

3920  W(15,N)  =  -72  +  .111*SB  +  3.49  *  PEOPLE 

393  0  IF  AZ=1  THEN  RETURN  2  42  0  ELSE  IF  AZA=1  THEN  RETURN 

1850  ELSE  RETURN  1390 

3940  • 

3950  ' 

3960  CLS:LOCATE  3 , 1 , 1 : FOR  1=1  TO  21:PRINT  TAB(40)  "°":NEXT 

I: FOR  1=1  TO  39: LOCATE  13, 1,1: PRINT  "-":NEXT  I 

3970  LOCATE  2,31,1:PRINT  "***  SECTION  3.4  ***":LOCATE 

4, 2 6,1: PRINT  "CURRENT": LOCATE  5, 2  5,1: PRINT 

"PARAMETERS": LOCATE  7, 2,1: PRINT  "INDUCED  POWER: " ;TAB (25) 

PIN: PRINT  TAB (2)  "PROFILE  POWER: " ;TAB (25)  PO: PRINT  TAB (2) 

"TOTAL  POWER: ";TAB( 25)  PT 

3980  PRINT  TAB (2)  "FIGURE  OF  MERIT: " ;TAB (25)  FM: PRINT 

TAB (2)  "%  INDUCED  POWER: " ;TAB (25)  PERINDP: LOCATE 

15,2,1:PRINT  "EMPTY  WEIGHT" ;TAB (25)  WE(N):PRINT  TAB(2) 

"GROSS  WEIGHT" ;TAB (25)  GW (N) : PRINT  TAB (2 )  "ROTATIONAL 

VELOCITY: ";TAB (2 5)  OMEGA 

3990  PRINT  TAB(2)  "THRUST  COEFFICIENT" ;TAB (25)  CT:PRINT 

TAB (2)  "BLADE  SOLIDITY: " ;TAB (25)  SIGMA: PRINT  TAB (2)  "ROTOR 

RADIUS"; TAB (25)  R: PRINT  TAB (2)  "CHORD" /TAB (25)  C: PRINT 

TAB(2)  "ASPECT  RATIO" ; TAB (25)  AR:PRINT  TAB(2)  "COEFFICIENT 

OF  LIFT:", -TAB (25)  CL 

4000  RETURN 

4010  CT=GW(N)/(PI*R^4*RHO*OMEGA^2) :TIPL0SS=1- 

(SQR(2*CT)/B) : 

PIN=(GW(N) ^1.5)/(SQR(2*RHO*PI*(R^2) ) *TIPLOSS*550) :PO=(RHO* 

CD0*B*C*(R^4) *(0MEGA^3) )/ (8*550) : PT=PIN+PO : HP=PT : PINWOTL=P 

IN*TIPLOSS : FM=PINWOTL/PT: PERINDP= (PIN/PT) *100 : S=B*C*R:RETU 

RN 

4  02  0  PIN (E ) =PIN : PO (E )=PO:PT(E)=PT:FM(E)=FM: PERINDP (E)= 

PERINDP: OMEGA (E)=OMEGA:CT(E)=CT: SIGMA (E)=SIGMA:R(E)=R:C(E) 

=C:AR(E)=AR:CL(E)=CL:RETURN 

4030  PIN=PIN(E) :PO=PO(E) :PT=PT(E) :FM=FM(E) : PERINDP= 

PERINDP (E) :OMEGA=OMEGA(E) :CT=CT(E) : SIGMA=SIGMA (E) :R=R(E) :C 

=C(E) :AR=AR(E) :CL=CL(E) : RETURN 

4040  IF  65535 !=ERL  THEN  GOTO  4050  ELSE  RESUME 

4050  IF  ZZ=1  THEN  LOCATE  23 , 45, 1 : PRINT  "MUST  BE  A 

NUMBER" : LOCATE  24 , 45 , 1 : INPUT  "TRY  AGAIN" ;W: RESUME  ELSE 
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LOCATE  2 4, 2 0,1: PRINT 
AGAIN": RESUME 


"ENTRY  MUST  BE  A  NUMBER  TRY 


1390  ELSE 

GOTO  44  0 

4080  CLS: LOCATE 

RESULTS" 

409  0  LOCATE  5 , 5 , 1 : PRINT 

WEIGHT"; TAB (50)  SGW 

4100  PRINT  TAB(5) 

GWl 

4110  PRINT  TAB (5) 

WEIGHT"; TAB (50)  WE 

412  0  PRINT  TAB (5) 

413  0  PRINT  TAB (5) 

414  0  PRINT  TAB (5) 
4150  PRINT  TAB (5) 
4160  PRINT  TAB (5) 

417  0  PRINT  TAB (5) 

418  0  PRINT  TAB (5) 
4190  PRINT  TAB (5) 
42  00  PRINT  TAB (5) 
4210  PRINT  TAB (5) 
4220  PRINT  TAB(5) 
4230  PRINT  TAB(5) 
4240  PRINT  TAB(5) 
4250  PRINT  TAB(5) 
MAXFVEL 


ELSE  IF  RE=2  THEN  AB=2:G0SUB 
RE=3  THEN  AB=2:G0SUB  2910  ELSE  IF  RE=4  THEN 


2, 2 5,1: PRINT  "TABLE  OF  CHAPTER  THREE 

"SPECIFICATION  GROSS 

ROUGH  ESTIMATE  GROSS  WEIGHT" ; TAB (50) 

ESTIMATE  OF  MANUFACTURER'S  EMPTY 

MAXIMUM  TIP  VELOCITY"; TAB (50)  VTIPMAX 

ROTOR  RADIUS"; TAB (50)  R 

ROTATIONAL  VELOCITY" ; TAB (50)  OMEGA 

BLADE  SOLIDITY" ;TAB (50)  SIGMA 

NUMBER  OF  MAIN  ROTOR  BLADES" ; TAB (50)  B 

BLADE  CHORD"; TAB (50)  C 

BLADE  ASPECT  RATIO" ; TAB (50)  AR 

AVERAGE  LIFT  COEFFICIENT" ; TAB (50)  CL 

BLADE  LIFT  CURVE  SLOPE" ;TAB (50)  CLALPHA 

BLADE  DRAG  COEFFICIENT" ; TAB (50)  CDO 

DISC  LOADING"; TAB (50)  DL(N-l) 

MAXIMUM  ADVANCE  RATIO" ; TAB (50)  MU 

MAXIMUM  BLADE  LOADING" ; TAB (50)  MBL 

MAXIMUM  FORWARD  VELOCITY" ; TAB (50) 


PIN 
PO 


4260  GOSUB  60 

4270  CLS: LOCATE  5 , 5 , 1 : PRINT  "TIPLOSS" ;TAB (50)  TIPLOSS 

42  80  PRINT  TAB (5)  "INDUCED  POWER  IN  HOVER  OGE";TAB(50) 

42  90  PRINT  TAB (5)  "PROFILE  POWER  IN  HOVER  OGE";TAB(50) 

43  00  PRINT  TAB (5)  "TOTAL  POWER  IN  HOVER  OGE";TAB(50)  PT 
4310  PRINT  TAB(5)  "FIGURE  OF  MERIT" ; TAB (50)  FM(N-l) 
4320  PRINT  TAB (5)  "PERCENT  INDUCED  POWER" ; TAB (50)  PERINDP 
4330  PRINT  TAB (5)  "INDUCED  POWER  IN  HOVER  IGE";TAB(50) 
PINI 

434  0  PRINT  TAB (5)  "TOTAL  POWER  IN  HOVER  IGE";TAB(50)  PTI 

4  3  50  PRINT  TAB (5)  "EQUIVALENT  FLAT  PLATE  AREA" ; TAB (50) 

EFPA 

4360  GOSUB  60:RETURN  4060 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

15,1,1 


***  DATA  INPUT  *** 


COLOR  1,1,1: CLS: PRINT  "~W=INPUT/" : INPUT; "", WW: COLOR 
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4440  IF  WW=1  THEN  GOTO  4460  ELSE  IF  WW=2  GOTO  4870  ELSE  IF 

WW=3  GOTO  5050  ELSE  IF  WW=4  THEN  RETURN  44  0 

4450  ' 

44  60  CLS: LOCATE  1,28,1: PRINT  "CHAPTER  THREE  DATA  ENTRY" 

4470  LOCATE  3 , 5 , 1 : PRINT  "  1.   SPECIFICATION  GROSS  WEIGHT" 


4480  PRINT  TAB(5) 
4490  PRINT  TAB(5) 
WEIGHT" 

4500  PRINT  TAB (5) 
4510  PRINT  TAB (5) 
4  52  0  PRINT  TAB (5) 
4530  PRINT  TAB(5) 
454  0  PRINT  TAB (5) 
4550  PRINT  TAB (5) 
4560  PRINT  TAB(5) 

457  0  PRINT  TAB (5) 

458  0  PRINT  TAB (5) 
4590  PRINT  TAB (5) 
4600  PRINT  TAB(5) 
4  610  PRINT  TAB (5) 
4  62  0  PRINT  TAB (5) 
4  63  0  PRINT  TAB (5) 
4  64  0  PRINT  TAB (5) 
4  650  PRINT  TAB (5) 


2.  ROUGH  ESTIMATE  GROSS  WEIGHT" 

3.  ESTIMATE  OF  MANUFACTURER'S  EMPTY 

4.  MAXIMUM  TIP  VELOCITY" 

5.  ROTOR  RADIUS" 

6.  ROTATIONAL  VELOCITY" 

7.  THRUST  COEFFICIENT" 

8.  BLADE  SOLIDITY" 

9.  NUMBER  OF  MAIN  ROTOR  BLADES" 

10.  BLADE  CHORD" 

11.  BLADE  ASPECT  RATIO" 

12.  AVERAGE  LIFT  COEFFICIENT" 

13.  BLADE  LIFT  CURVE  SLOPE" 

14.  BLADE  DRAG  COEFFICIENT" 

15.  DISC  LOADING" 

16.  MAXIMUM  ADVANCE  RATIO" 

17.  MAXIMUM  BLADE  LOADING" 

18.  MAXIMUM  FORWARD  VELOCITY" 

19.  NEXT  PAGE" 


TIPLOSS" 
INDUCED  POWER  IN  HOVER  OGE" 
PROFILE  POWER  IN  HOVER  OGE" 
TOTAL  POWER  IN  HOVER  OGE" 
FIGURE  OF  MERIT" 
PERCENT  INDUCED  POWER" 
INDUCED  POWER  IN  HOVER  IGE" 
TOTAL  POWER  IN  HOVER  IGE" 
RETURN  TO  DATA  INPUT  MENU" 


4660  GOTO  4770 

4670  CLS: LOCATE  5 , 5 , 1 : PRINT  "20. 

4  68  0  PRINT  TAB (5)  "21 

4690  PRINT  TAB(5)  "22 

4700  PRINT  TAB(5)  "23 

4710  PRINT  TAB(5)  "24 

4720  PRINT  TAB(5)  "25 

4730  PRINT  TAB(5)  "26 

4740  PRINT  TAB(5)  "27 

4750  PRINT  TAB(5)  "28 

4760  GOTO  4770 

477  0  LOCATE  23 , 26 , 1 : INPUT  "WHICH  DO  YOU  WANT  TO 

ENTER" ;X: IF  X=l  THEN  LOCATE  3, 55,1: INPUT  SGW: LOCATE 

23, 54,1: PRINT  "  " : GOTO  4770  ELSE  IF  X=2  THEN  LOCATE 

4, 55,1: INPUT  GWl: LOCATE  23 , 54 , 1 : PRINT  "  ":GOTO  4770  ELSE 

4780  IF  X=3  THEN  LOCATE  5, 55,1: INPUT  WE: LOCATE 

2  3,54,1: PRINT  "  " : GOTO  477  0  ELSE  IF  X=4  THEN  LOCATE 

6,55,1: INPUT  VTIPMAX: LOCATE  23 , 54 , 1 : PRINT  "  " : GOTO  477  0 

ELSE  IF  X=5  THEN  LOCATE  7, 55,1: INPUT  R: LOCATE 

23,54,1: PRINT  "  " : GOTO  4770  ELSE 

4790  IF  X=6  THEN  LOCATE  8, 55,1: INPUT  OMEGA: LOCATE 

23, 54,1: PRINT  "  " : GOTO  4770  ELSE  IF  X=7  THEN  LOCATE 

9, 55,1: INPUT  CT: LOCATE  23 , 54 , 1 : PRINT  "  " : GOTO  4770  ELSE  IF 

X=8  THEN  LOCATE  10 , 55 , 1 : INPUT  SIGMA: LOCATE  23 , 54 , 1 : PRINT  " 

":GOTO  4770  ELSE 

4800  IF  X=9  THEN  LOCATE  11, 55 , 1 : INPUT  B: LOCATE 

23, 54,1: PRINT  "  ":GOTO  4770  ELSE  IF  X=10  THEN  LOCATE 
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12,55, 1:INPUT  C:LOCATE  23 , 54 , 1: PRINT  "   ":GOTO  4770  ELSE 

IF  X=ll  THEN  LOCATE  13 , 55, 1: INPUT  AR: LOCATE  23 , 54 , 1 : PRINT 

"   ":GOTO  4770  ELSE 

4810  IF  X=12  THEN  LOCATE  14 , 55, 1: INPUT  CL: LOCATE 

23, 54,1: PRINT  "   " : GOTO  4770  ELSE  IF  X=13  THEN  LOCATE 

15, 55,1: INPUT  CLALPHA: LOCATE  23 , 54 , 1 : PRINT  "   ":GOTO  4770 

ELSE 

4820  IF  X=14  THEN  LOCATE  16 , 55 , 1: INPUT  CDO: LOCATE 

2  3,54,1: PRINT  "   " : GOTO  477  0  ELSE  IF  X=15  THEN  LOCATE 

17, 55,1: INPUT  DL: LOCATE  23 , 54 , 1: PRINT  "   " : GOTO  4770  ELSE 

IF  X=16  THEN  LOCATE  18 , 55 , 1: INPUT  MU: LOCATE  23 , 54 , 1 : PRINT 

"   ":GOTO  4770  ELSE 

483  0  IF  X=17  THEN  LOCATE  19 , 55 , 1 : INPUT  MBL: LOCATE 

2 3, 54,1: PRINT  "   ":GOTO  477  0  ELSE  IF  X=18  THEN  LOCATE 

20, 55,1: INPUT  MAXFVEL: LOCATE  23 > 54 , 1 : PRINT  "   " : GOTO  4770 

ELSE  IF  X=19  GOTO  4670  ELSE 

484  0  IF  X=2  0  THEN  LOCATE  5, 55,1: INPUT  PIN: LOCATE 

2 3, 5 4,1: PRINT  "   " : GOTO  47  7  0  ELSE  IF  X=21  THEN  LOCATE 

6,55,1: INPUT  PIN: LOCATE  23 , 54 , 1 : PRINT  "   " : GOTO  4770  ELSE 

IF  X=22  THEN  LOCATE  7,55,1: INPUT  PO: LOCATE  23 , 54 , 1 : PRINT  " 

":GOTO  477  0  ELSE 

4850  IF  X=2  3  THEN  LOCATE  8, 5 5,1: INPUT  PT: LOCATE 

2 3, 5 4,1: PRINT  "   " : GOTO  477  0  ELSE  IF  X=24  THEN  LOCATE 

9, 55,1: INPUT  FM: LOCATE  23 , 54 , 1 : PRINT  "   " : GOTO  4770  ELSE 

IF  X=2  5  THEN  LOCATE  10 , 55 , 1: INPUT  PERINDP: LOCATE 

23, 54,1: PRINT  "   ":GOTO  4770  ELSE 

4860  IF  X=26  THEN  LOCATE  11, 55 , 1 : INPUT  PINI : LOCATE 

2 3, 5 4,1: PRINT  "   " : GOTO  477  0  ELSE  IF  X=27  THEN  LOCATE 

12, 55,1: INPUT  PTI : LOCATE  23 , 54 , 1: PRINT  "   ":GOTO  4770  ELSE 

IF  X=28  THEN  GOTO  4  370 

4870  CLS: LOCATE  1,30,1: PRINT  "WEIGHT  ESTIMATION 

TABLE": LOCATE  2, 42,1: PRINT  " ITERATION  

": LOCATE  3, 42,1: PRINT  "FIRST  SECOND 

THIRD": LOCATE  4, 1,1: PRINT  "1.   ROTOR:" 

4880  PRINT  "2.   TAIL   ROTOR: ": PRINT  " 

STRUCTURE :": PRINT  "3.   BODY:": PRINT  "4.   LANDING 

GEAR:": PRINT  "5.   NACELLE:" 

489  0  PRINT  "6.   PROPULSION  ENGINE :": PRINT  TAB (16) 

"DRIVE:": PRINT  TAB (16)  "FUEL  TANKS:" 

4900  PRINT  "7.   FLIGHT  CONTROLS :": PRINT  "8.   AUXILIARY 

POWER : " : PRINT  " 9 .   INSTRUMENTS : " 

4910  PRINT  "10.  HYDRAULICS: ":PRINT  "11.  ELECTRICAL: ": PRINT 

"12.  AVIONICS :": PRINT  "13.  FURNISHINGS:" 

4920  PRINT  "14.  AIR  &  ICE:":PRINT  "15.  LOAD  & 

HANDLING:": PRINT  "16.  EXIT  TO  DATA  INPUT  MENU" 

4930  LOCATE  23 , 15 , 1 : INPUT  "COMPONENT  NUMBER" ; I : IF  Kl  THEN 

GOTO  5030  ELSE  IF  I>16  GOTO  5030  ELSE  IF  1=16  THEN  GOTO 

4420  ELSE  LOCATE  23 , 40 , 1 : INPUT  "WHICH  ITERATION" ;N2 : IF 

N2<1  THEN  GOTO  5030  ELSE  IF  N2>3  GOTO  5030  ELSE 

4940  A$="A":IF  1=2  THEN  LOCATE  23 , 64 , 1: INPUT  "R  OR  S";A$ 

ELSE  IF  1=6  THEN  LOCATE  23 , 64 , 1 : INPUT  "E,D  OR  F";A$ 
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4950  IF  A$<"A"  THEN  GOTO  5030  ELSE  IF  A$>"S"  GOTO  5030 

4960  12=0: 13=0: IF  A$="R"  THEN  12=0  ELSE  IF  A$="r"  THEN 

12=0  ELSE  IF  A$="S"  THEN  12=1  ELSE  IF  A$="s"  THEN  12=1 

ELSE  IF  A$="E"  THEN  12=0  ELSE  IF  A$="e"  THEN  12=0  ELSE  IF 

A$="D"  THEN  12=1  ELSE  IF  A$="d"  THEN  12=1  ELSE  IF  A$="F" 

THEN  12=2  ELSE  IF  A$="f"  THEN 

4970  IF  A$="f"  THEN  12=2 

4980  IF  I<3  THEN  13=3  ELSE  IF  I<7  THEN  13=4  ELSE  13=6 

4990  I1=I+I2+I3:IF  N2=l  THEN  LOCATE  11,40,1  ELSE  IF  N2=2 

THEN  LOCATE  11,54,1  ELSE  IF  N2=3  THEN  LOCATE  11,69,1 

5000  IF  A$="R"  THEN  INPUT  W2A(N2)  ELSE  IF  A$="S"  THEN 

INPUT  W2B(N2)  ELSE  IF  A$="E"  THEN  INPUT  W6A(N2)  ELSE  IF 

A$="D"  THEN  INPUT  W6B(N2)  ELSE  IF  A$="F"  THEN  INPUT 

W6C(N2)  ELSE  INPUT  W(I,N2) 

5010  LOCATE  23 , 32 , 1 : PRINT  "     •": LOCATE  23 , 57 , 1 : PRINT  " 
II 

5020  GOTO  4930 

503  0  LOCATE  25 , 20 , 1 : PRINT  "your  input  is  not  within  range 

try  again": FOR  1=1  TO  2500: NEXT  I : LOCATE  23 , 32 , 1: PRINT  " 

": LOCATE  23 , 57 , 1 : PRINT  "  ": LOCATE 

25,2  0,1: PRINT  " 
II 

5040  GOTO  4930 

5050  CLS: LOCATE  10 , 10 , 1 : INPUT  "ENTER  THEN  NUMBER  OF 

AIRSPEEDS  YOU  HAVE  CALCULATIONS  FOR" ;LL: LOCATE 

12, 10,1: PRINT  "IF  YOU  DO  NOT  HAVE  AN  ENTRY  FOR  A  TABLE 

ITEM  JUST  HIT  THE  ENTER  KEY": LOCATE  13 , 10 , 1 : PRINT  "AND  THE 

CURSOR  WILL  MOVE  TO  THE  NEXT  ENTRY  POINT" 

5060  GOSUB  60:KK=1:GOTO  5110 

5070  CLS: LOCATE  10 , 15 , 1 : INPUT  "DO  YOU  HAVE  ANY  ENTRIES  FOR 

SPECIFICATION  ALTITUDE (Y/N) "; B$ : IF  B$="Y"  THEN  GOTO  5090 

ELSE  IF  B$="y"  GOTO  5090  ELSE  IF  B$="N"  GOTO  GOTO  4420 

ELSE  IF  B$="n"  GOTO  4420  ELSE 

5080  LOCATE  23 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  5070 

5090  LOCATE  12 , 15 , 1 : INPUT  "ENTER  SPECIFICATION 

ALTITUDE"; ALT: LOCATE  14 , 15 , 1 : INPUT  "ENTER  SPECIFICATION 

TEMPERATURE", -TEMP: LOCATE  16 , 15 , 1 : INPUT  "ENTER  NUMBER  OF 

AIRSPEEDS  YOU  HAVE  CALCULATIONS  FOR" ; LL: KK=2 : GOTO  5110 

5100  IF  KK=2  THEN  LOCATE  4, 3  0,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

5110  CLS: LOCATE  2, 3 3,1: PRINT  "MAIN  ROTOR  POWER" 

5120  IF  KK=1  THEN  LOCATE  4, 32,1: PRINT  "STANDARD  SEA 

LEVEL" : LOCATE  5, 2  0,1: PRINT  "ALTITUDE=  0  FT      TEMPERATURE 

=  59  DEG.  F"  ELSE 

5130  IF  KK=2  THEN  LOCATE  4, 30,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5,60,1:PRINT  "DEG.  F" 
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5140  LOCATE  7, 29,1: PRINT  " POWER  

"-.LOCATE  9,  8,1:  PRINT  "AIRSPEED      TIP 

INDUCED      PROFILE      PARASITE      TOTAL" 

5150  LOCATE  10, 9,1: PRINT  "(knots)     MACH       (SHP) 

(SHP)         (SHP)         (SHP)" 

5160  K=12:I=0:FOR  L=l  TO  LL:LOCATE  K,8,1:INPUT  0(L):LOCATE 

K,18,1:INPUT  TM(KK,L) : LOCATE  K,28,1:INPUT 

PINF(KK,L) : LOCATE  K,40,1:INPUT  POF (KK, L) : LOCATE 

K, 52,1: INPUT  PPF(KK,L) 

5170  LOCATE  K,64,1:INPUT  PTF (KK, L) :K=K+1:NEXT  L:IF  KK=1 

THEN  GOTO  507  0  ELSE  RETURN 
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F.   CHAPTER  FOUR 


10  KEY (5)  OFF 

20 

30 

40 

50 

60 

70 


****************************************************** 

TAIL  ROTOR  DESIGN 
****************************************************** 

***   CHAPTER  FOUR  MAIN  PROGRAM   *** 


***  STORE  DATA  ON  FILE  DISK  *** 


80 
90 
100  • 

110  PRINT  "~C=ALL/": PRINT  "~L=CH4/" 

12  0  KEY (9)  ON: ON  KEY (9)  GOSUB  13  0 

13  0  COLOR  1,1,1:CLS: LOCATE  2 3, 1,0: PRINT  ■ 
•I  ~w=C4MAIN/  "  :  INPUT ;  "  "  ,  X 

14  0  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  43  0  ELSE  IF  X=2  THEN 
GOSUB  54  0  ELSE  IF  X=3  THEN  GOSUB  63  0  ELSE  IF  X=4  THEN 
GOSUB  820  ELSE  IF  X=5  THEN  GOSUB  1040  ELSE  IF  X=6  THEN 
GOTO  430  ELSE  IF  X=7  THEN  GOSUB  1900  ELSE 
150  IF  X=8  THEN  GOSUB  1440  ELSE  IF  X=9  THEN  GOSUB  1090 
ELSE  IF  X=10  THEN  GOSUB  180  ELSE  IF  X=ll  THEN  CLS : LOCATE 
2  3, 1,0: PRINT  " ~W= LOAD/ ": CHAIN  "HD1",,ALL 
160 
170 
180 
190 
200 

210  CLS:LOCATE  23,1,0:PRINT  "~W=DISK/" : GOSUB  1760:LOCATE 
25, 27,1: PRINT  "  ": LOCATE 

2  3, 1,0: PRINT  "~W=SAVE/" 

2  2  0  A ( 1 ) =SGW : A ( 2 ) =GW1 : A ( 3 ) =WE : A ( 4 ) =VTIPMAX :A(5)=R:A(6)= 

OMEGA : A ( 7 ) =CT : A ( 8 ) =SIGMA :A(9)=B:A(10)=C:A(11) =AR : A ( 12 ) =CL : 

A(13)=CLALPHA:A(14)=CDO:A(15)=DL:A(16)=MBL:A(17)=MU:A(18)= 

MAXFVEL : A ( 19 ) =TI PLOSS : A ( 2  0 ) =PIN : A ( 2 1 ) =P0 : A ( 2  2 ) =PT : A ( 2  3 ) =HP 

: A ( 2  4 ) =PERINDP : V=2  4 

230  FOR  1=1  TO  3:F0R  J=l  TO  15 : V=V+1 :Q=J+24 : A(V) =W(Q-24 , I) 

:NEXT  J,I:FOR  1=1  TO  3 : A (1+69 ) =W2A (I) : A(I+72 ) =W2B (I) : 

A(I+75)=W6A(I) :A(I+78)=W6B(I) : A(I+81) =W6C (I) :NEXT 

I:A(85)=N:  A(86)=WE(N) :A(87)=GW(N) :A(88)=DL(N- 

1) :A(89)=FM(N-1) :A(90)=  FL: A(91) =IRLG: A(92 ) =NW 

24  0  A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96)=FUEL:A(97)= 

PEOPLE :A(98)=UL:A( 99) =SPECIAL:A(100)=ENGINE:A(101)=ZZ:A(10 

2)=AB:A(103)=GR:A(104)=RH:A(105)=H:A(10  6)=D:A(107)=PINI:A( 

108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) : A(112 ) =MM: A( 11 

3)=M(2) :A(114)=CRUISEV 

2  50  A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118)=MAXF2:A(119) 

=MAXCRU 1 : A ( 1 2  0 ) =ALT : A ( 1 2 1 ) =TEMP :A(122)=LL:A(123) =TR : A ( 1 2  4 ) 

=TRPM : A ( 12  5 ) =OMEGAT : A ( 12  6 ) =TCDO : A ( 12  7 ) =BT : A ( 12  8 ) =TAR : A ( 12  9 

) =TRC : A ( 1 3  0 ) =TTR : A ( 1 3 1 ) =CTTR : A ( 1 3  2 ) =TRB : A ( 1 3  3 ) =S IGMAT : A ( 1 3 

4)=V:A(135)=SPAN 
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260  A(136)=S:A(137) =SWP : A ( 1 3 8 ) =SWEEP : A ( 1 3 9 ) =LAVS : A ( 14 0 )  = 

VS AR : A ( 1 4 1 ) =BETA2 :A(142)=T:A(143)=T2:A(144)=T3:A(145) =CLAT 

R : A ( 1 4  6 ) =ALTR : A ( 1 4  7 ) =ALTRDEG :A(148)=TL:G=149 

270  LL=LL+1:F0R  1=1  TO  LL: A(G) =0 (I) :G=G+1 :NEXT  I:G=G+1+LL: 

G1=G+1+2*LL:G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2*LL 

280  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G) =PINF (I , J) 

:A(G1)=P0F(I,J)  :A(G2)=PPF(I,J) : A(G3 ) =PTF (I , J) :A(G4)=TM 

(I, J) :G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J, I 

290  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : A(G4) =PITR(I) : 

A(G5)=P0TR(I) :A(G6)=PTTR(I) : A(G7) =CLTR(I) :G4=G4+1 : G5=G5+1: 

G6=G6+1:G7=G7+1:NEXT  I :G8=G7+l+2* (LL-1) : G9=G8+l+2* (LL-1) 

300  FOR  1=1  TO  2:F0R  J=2  TO  LL: A(G7) =PITRF (I , J) : A(G8) = 

POTRF(I,J) :A(G9)=PTTRF(I,J) : G7=G7+1 :G8=G8+1:G9=G9+1 :NEXT 

J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 

2*LL:G14=G13+1+2*LL 

310  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G9) =TTM(I , J) : A(GIO) = 

TRT(I,J) :A(G11)=L(I,J) : A(G12 ) =VERSTAB (I , J) : A(G13 ) =PTTRVSF ( 

I, J) :A(G14)=PITRFI(I,J) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G1 

2+l:G13=G13+l:G14=G14+l:NEXT  J, I 

320  LL(2)=162+(32*LL) :LL=LL-1 

33  0  Z=4:0PEN  "B:DATA1"  FOR  OUTPUT  AS  #1: PRINT  #1,  Z 

340  FOR  1=1  TO  10:PRINT  #1,  LL(I) :NEXT  I : CLOSE  #1 

350  OPEN  "B:DATA4"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  LL(2):PRINT 

#1,  A(I):NEXT  I:CLOSE  #1:RETURN  120 

360 

370 

380 

390 

400 

410 

420 

430  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  4.1  ***": LOCATE 

7,22,1: PRINT  "-PRELIMINARY  SIZING  OF  TAIL  ROTOR-" 

440  TR  =  1.3*SQR(SGW/1000) :TRPM  =  13  5*OMEGA/PI : OMEGAT 

=4 . 5*0MEGA: TCDO=CDO 

450  LOCATE  10 , 25 , 1 : PRINT  "TAIL  ROTOR  RADIUS=" ;TR: LOCATE 

12, 2 5,1: PRINT  "TAIL  ROTOR  RPM=" ;TRPM: LOCATE  14 , 25 , 1 : PRINT 

"TAIL  ROTOR  CDO=" ;TCDO: LOCATE  16 , 25 , 1 : INPUT  "ENTER 

ESTIMATE  OF  TAIL  ROTOR  ASPECT  RATIO" ; TAR: TRC  =  TR/TAR 

460  LOCATE  23 , 35 , 1 : INPUT  "ANY  CHANGES (Y/N) " ;A$ : IF  A$="Y" 

THEN  GOTO  450  ELSE  IF  A$="y"  GOTO  450  ELSE  IF  A$="N"  GOTO 

480  ELSE  IF  A$="n"  GOTO  480  ELSE 

470  LOCATE  25 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  4  60 

480  IF  X=6  THEN  GOTO  500  ELSE  RETURN  12  0 

490  ' 

500  ' 


***  SECTION  4.1  *** 
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***  SECTION  4.3  *** 


510  •  ***  SECTION  4.2  *** 

520  • 
530  • 

540  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  4.2  ***": LOCATE 
7, 2 1,1: PRINT  "-TAIL  ROTOR  POWER  REQUIRED  AT  HOVER-" 
550  LOCATE  10,8,1: PRINT  "USING  HD-7  MAKE  AN  ESTIMATE  OF 
THE  DISTANCE  FROM  THE  CENTER  OF  TAIL": LOCATE  11, 8,1: INPUT 
"ROTOR  THRUST  TO  THE  CENTER  OF  GRAVITY  (ie.  tail 
length) ";TL: LOCATE  13 , 20, 1: INPUT  "ENTER  NUMBER  OF  TAIL 
ROTOR  BLADES" ;BT 

560  FOR  1=1  TO  2:RHO(l)=RHO:TRA=PI*TR^2:TRVT=OMEGAT*TR 
57  0  TTR=(PT*550)/(OMEGA*TL) : CTTR(I) =TTR/ (PI* (TR^4) *RHO(I)* 
(0MEGAT^2) ) :TRB=l-( (SQR(2*CTTR(I) ) )/BT) :PITR(I)= 
( ( (TTR^1.5)/SQR(2*PI* (TR^2) *RHO(I) ) ) /TRB) /550 : SIGMAT= (BT*T 
RC)/ (PI*TR) :POTR(I)=(SIGMAT*TCDO*RHO(I) *TRA*TRVT^3 ) /44  00 : P 
TTR ( I ) =PITR ( I ) +POTR ( I ) 

590  NEXT  I: IF  TT=1  THEN  GOTO  670  ELSE 

600  LOCATE  15 , 20 , 1 : PRINT  "TAIL  ROTOR  POWER  IN  HOVER 
=";PTTR(1) : LOCATE  17 , 20 , 1 : PRINT  "TAIL  ROTOR  INDUCED  POWER 
=";PITR(1) : LOCATE  19 , 20 , 1 : PRINT  "TAIL  ROTOR  PROFILE  POWER 
=";P0TR(1) :GOSUB  1760:IF  X=6  THEN  GOTO  610  ELSE  RETURN  120 
610 
620 
630 
640 
650 

660  CLS: LOCATE  2, 30,1: PRINT  "***  SECTION  4.3  ***": LOCATE 
3, 16,1: PRINT  "-TAIL  ROTOR  POWER  REQUIRED  FOR  FORWARD 
FLIGHT-": LOCATE  15 , 35 , 0 : PRINT  "~W=COMP/" : VTTR=OMEGAT*TR 
670  TRA=PI*(TR^2) :RHO(l)=RHO:LL=LL+l:FOR  1=1  TO  2 : FOR  J=l 
TO  LL:CTTR(I)=PTF(I,J) *550/ (OMEGA*TL*RHO (I) *TRA* (VTTR) ^2 ) 
:TIP=1-(SQR(2*CTTR(I) )/BT) : VF=1 . 687778*0 (J) :VITR=SQR( (- 
(VF^2)/2)+  SQR( ( ( (VF^2)/2)^2)+( (PTF(I,J) *550)^2)/( (2*TRA* 
RHO(I)*  TL*0MEGA)^2) ) ) 

680  MU2=VF/(0MEGAT*TR) : PITRF (I , J) = ( ( (PTF(I,J) *550)/(TL* 
OMEGA) ) *VITR)/(550*TIP) : POTRF (I , J) =SIGMAT*CDO*RHO (I) *TRA* ( 
(0MEGAT*TR)^3) * ( 1+ (4 . 3* (MU2^2 ) ) )/44  00 

690  PTTRF(I,J)=PITRF(I,J)+POTRF(I,J) :NEXT  J, I : LL=LL-1 : FOR 
1=1  TO  2:PTTRF(I,1)=PTTR(I) :PITRF(I,1)=PITR(I) :P0TRF(I,1) 
=POTR(I) :NEXT  I 

700  FOR  KK=1  TO  2:G0SUB  710: NEXT  KK:IF  X=8  THEN  RETURN 
1470  ELSE  IF  AP=1  THEN  LPRINT  CHR$  (12):RETURN  1090  ELSE 
IF  AQ=1  THEN  AQ=0:GOTO  120  ELSE  IF  X=6  GOTO  800  ELSE  GOTO 
120 

710  CLS: LOCATE  2, 3  3,1: PRINT  "TAIL  ROTOR  POWER" 
720  IF  KK=1  THEN  LOCATE  4, 32,1: PRINT  "STANDARD  SEA 
LEVEL" : LOCATE  5, 2  0,1: PRINT  "ALTITUDE  =  0  FT 
TEMPERATURE  =  59  DEG.  F"  ELSE 

730  IF  KK=2  THEN  LOCATE  4, 30,1: PRINT  "SPECIFICATION 
ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 
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***  SECTION  4.4  *** 


5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 
5,60,1: PRINT  "DEC.  F" 

740  LOCATE  7, 39,1: PRINT  " POWER  

": LOCATE  9, 17,1: PRINT  "AIRSPEED      TIP       INDUCED 
PROFILE      TOTAL" 

750  LOCATE  10 , IS , 1 : PRINT  "(knots)      MACH       (SHP) 
(SHP)        (SHP)" 

760  A$="###.#":B$="#.###":C$="####.##":K=12: LOCATE 
12,18,1:PRINT  USING  A$ ;0 (1) : LOCATE  12 , 29 , 1: PRINT  USING 
B$;TTM(KK,1) : LOCATE  12 , 38 , 1: PRINT  USING  C$ ;PITR(KK) : LOCATE 
12,49,1: PRINT  USING  C$ ; POTR (KK) : LOCATE  12 , 60 , 1 : PRINT  USING 
C$;PTTR(KK) :K=13:F0R  L=2  TO  LL 

770  LOCATE  K,18,1:PRINT  USING  A$ ;0 (L) : LOCATE  K,29,1:PRINT 
USING  B$;TTM(KK,L) : LOCATE  K,38,1:PRINT  USING 
C$;PITRF(KK,L) : LOCATE  K,49,1:PRINT  USING 

C$;POTRF(KK,L) : LOCATE  K,60,1:PRINT  USING  C$ ;PTTRF (KK, L) 
78  0  K=K+1:NEXT  L 

790  IF  AP=1  THEN  LCOPY: RETURN  ELSE  GOSUB  1760: RETURN 
800 
810 
820 
830 
840 

850  CLS: LOCATE  2, 30,1: PRINT  "***  SECTION  4.4  ***": LOCATE 
3, 2 9,1: PRINT  "-VERTICAL  STABILIZER-" : LOCATE  5 , 5 , 1 : PRINT 
"ENTER  THE  AIRSPEED  FOR  VERTICAL  STABILIZER  TO  UNLOAD  THE 
TAIL  ROTOR" 

860  LOCATE  6, 18,1: INPUT  "(airspeed  must  be  of  a  20  knot 
increment) ";V: LOCATE  8, 15,1: PRINT  "TAIL  ROTOR  SOLIDITY 
=";SIGMAT 

87  0  LOCATE  9, 15,1: INPUT  "FROM  FIGURE  4.1  SELECT  AND  ENTER 
THE  PLANFORM  AREA" ;S : LOCATE  11, 15 , 1: INPUT  "ENTER  SPAN  OF 
VERTICAL  STABILIZER"; SPAN: LOCATE  13 , 15 , 1 : INPUT  "ENTER 
SWEEP  OF  VERTICAL  STABILIZER  AT  MID- 
CHORD"  ;SWP:  SWEEP=SWP*PI/180 

880  LOCATE  15 , 15 , 1: INPUT  "ENTER  LEVER  ARM  FOR  VERTICAL 
STABILIZER" ; LAVS 

89  0  FOR  1=1  TO  LL:IF  V=0(I)  THEN  VI=I:GOTO  9  00  ELSE  NEXT  I 
900  VF1=(0(VI) ) *1.687778:FOR  1=1  TO 

2:L1(I)=( ( (PTF(I,VI)*550)/OMEGA)/LAVS) : CLTR(I) = (2*L1 (I) )/( 
(VF1^2) *S*RHO(I) ) :NEXT  I:VSAR=( (SPAN) ^2)/S 

910  BETA2=l-( (VFl/A) ^2) : T= (VSAR*2*PI) :Tl=(l+( (TAN(SWEEP) ) 
^2 )  /BETA2 ) : T2= ( (VSAR^2 ) *BETA2 ) : T3=2+SQR (Tl*T2+4 ) : CLATR= 
T/T3:TA= (TAN (SWEEP) ) ^2 :TEFPA= (8 . 999999E-03+CLTR(l) ^2/ 
(PI*VSAR) )  *S:TPP=RH0(1) * (V*l . 687778) ^3*TEFPA/1100 
92  0  ALTR=(CLTR(l)-.4)/CLATR:ALTRDEG=ALTR*(18  0/PI) : LOCATE 
17, 15,1: PRINT  "ANGLE  OF  ATTACK  FOR  VERTICAL  STABILIZER 
(deg)  =";USING  "##.##" ;ALTRDEG: LOCATE  19 , 15 , 0 : PRINT 
"EQUIVALENT  FLAT  PLATE  AREA  OF  VERTICAL  STABILIZER 
=";TEFPA 
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2: FOR  J=l  TO 
2) *CLTR(I) :VE 


93  0  LOCATE  21 , 15 , 0 : PRINT  "ADDITIONAL  PARASITE  POWER  AT 

THIS  AIRSPEED  =";TPP 

940  LOCATE  23 , 30 , 1: INPUT  "ANY  CHANGES (Y/N) " ;E$ : IF  E$="Y" 

THEN  GOTO  850  ELSE  IF  E$="y"  GOTO  850  ELSE  IF  E$="N"  THEN 

GOTO  960  ELSE  IF  E$="n"  THEN  GOTO  960  ELSE 

950  LOCATE  25 , 25 , 1 : PRINT  "you  must  enter  (y/n)  try 

again": LOCATE  22 , 47 , 1: PRINT  "  " : GOTO  94  0 

960  LOCATE  25 , 25 , 1 : PRINT  " 

": LOCATE  15 , 35 , 0 : PRINT  "~W=COMP/" : FOR  1=1  TO 

LL:VF=0(J) *1.687778:L(I,J)=(.5) *RHO (I) *S* (VF' 

RSTAB(I, J)=(L(I, J) *OMEGA*LAVS)/550:NEXT  J, I 

970  FOR  1=1  TO  2:F0R  J=l  TO  LL: PTF5 (I , J) =ABS (PTF (I , J) - 

VERSTAB(I,J) ) :NEXT  J, I 

980  TRA=PI*(TR^2) :RH0(1)=RH0:F0R  1=1  TO  2 : FOR  J=l  TO  LL:VF 

=1.687778*0 (J) :VITR1=SQR( (- (VF^2 ) /2 ) +SQR( ( ( (VF^2 ) /2) ^2) + 

( (PTF5(I,J) *550)^2)/( (2*TRA*RH0(I) *TL*OMEGA) ^2) ) ) :MU2=VF/( 

OMEGA*R) :PITRFI(I,J)=( ( (PTF5(I,J) *550) / (TL*OMEGA) ) *VITR1)/ 

550 

990  TRT(I,J)=(PTF(I,J) *550) / (TL*OMEGA) 

1000  PTTRVSF(I,J)=PITRFI(I,J)+POTRF(I,J) :NEXT  J,I:GOSUB 

1790 

1010 

1020 

1030 

1040 

1050 

1060 

1070 


IF  X=6  GOTO  1020  ELSE  GOTO  120 


***  SECTION  4.5  *** 


CLS : LOCATE 


5,30,1 


LOCATE 


PRINT  "***  SECTION  4.5  ***" 
6, 25,1: PRINT  "-TAIL  ROTOR  TIP  MACH  NUMBER-" : LOCATE 
2 3, 1,0: PRINT  "~W=COMP/" 

1080  M(1)=A:F0R  1=1  TO  2 : FOR  J=l  TO  LL:VF=0 (J) *1 . 687778 : 
TTM(I,J)=( (OMEGAT*TR)+VF)/M(I) :NEXT  J, I : AQ=1 : GOSUB  700 
1090  •  ***  PRINT  OUT  DATA  *** 

1100  ' 
1110  • 
112  0  COLOR  1,1,1: CLS: LOCATE  2  3, 1,0: PRINT 


INPUT;"", PR: COLOR 


15,1,1 


"~W=C4 PRINT/" 

1130  AP=0:IF  PR=1  THEN  GOTO  1140  ELSE  IF  PR=2  THEN 

AP=1: GOSUB  1790  ELSE  IF  PR=3  THEN  AP=1: GOSUB  700  ELSE  IF 

PR=4  THEN  AP=0: RETURN  12  0 

1140  CLS: LOCATE  23, 1,0: PRINT  "~W=PRINTER/" : GOSUB 

1760: LOCATE  25 , 27 , 0 : PRINT  " 


1150  LPRINT  TAB (25)  "TABLE  OF  CHAPTER  FOUR  RESULTS" 

1160 

1170 

1180 

1190 

1200 


LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


TAB (12)  "TAIL  ROTOR  RADIUS" ; TAB (57)  TR 
TAB (12)  "TAIL  ROTOR  ROTATIONAL 

VELOCITY"; TAB (57)  OMEGAT 

1210  LPRINT  TAB (12)  "TAIL  ROTOR  RPM";TAB(57)  TRPM 


100 


TAB (12) 
TAB (12) 
TAB (12) 


"TAIL 
"TAIL 

"TAIL 

TCDO 

"TAIL 

"TAIL 


ROTOR 
ROTOR 


ROTOR 
ROTOR 


1220  LPRINT  TAB (12) 

COEFFICIENT"; TAB (57) 

123  0  LPRINT 

SIGMAT 

1240  LPRINT 

BT 

12  50  LPRINT 

12  60  LPRINT  TAB (12) 
RATIO"; TAB (57)  TAR 

127  0  LPRINT  TAB (12) 
COEFFICIENT" ; TAB ( 57 ) 

128  0  LPRINT  TAB (12) 
1290  LPRINT  TAB (12) 
0GE";TAB(57)  PITR(l) 

13  00  LPRINT  TAB (12) 
0GE";TAB(57)  POTR(l) 
1310  LPRINT  TAB (12) 
0GE";TAB(57)  PTTR(l) 
13  2  0  LPRINT  TAB (12) 
IGE";TAB(57)  PITR(2) 
13  3  0  LPRINT  TAB (12) 
IGE";TAB(57)  PTTR(2) 
134  0  LPRINT  TAB (12) 
1350  LPRINT  TAB (12) 
AREA"; TAB (57)  S 

13  60  LPRINT  TAB (12) 
SPAN 

1370  LPRINT  TAB (12) 
CHORD"; TAB (57)  SWP 
1380  LPRINT  TAB (12) 
RATIO"; TAB (57)  VSAR 
1390  LPRINT  TAB (12) 
ATTACK"; TAB (57)  ALTRDEG 

14  00  LPRINT  TAB (12)  "VERTICAL 
LIFT"; TAB (57)  CLTR(l) 
1410  LPRINT  TAB (12)  "VERTICAL 
SLOPE"; TAB (57)  CLATR 

142  0  LPRINT  TAB (12)  "LEVER  ARM 

STABILIZER"; TAB (57)  LAVS 

1430  LPRINT  CHR$  (12) : GOTO  1120 


ROTOR  THRUST 

ROTOR  BLADE  SOLIDITY" ; TAB (57 ) 
"NUMBER  OF  TAIL  ROTOR  BLADES" ; TAB (57) 


"TAIL 

CT 
"TAIL 


BLADE  CHORD"; TAB (57) 
BLADE  ASPECT 


TRC 


ROTOR  BLADE  DRAG 


TIPL0SS";TAB(57) 
INDUCED  POWER  IN 


TRB 
HOVER 


"TAIL  ROTOR -PROFILE  POWER  IN  HOVER 

"TAIL  ROTOR  TOTAL  POWER  IN  HOVER 

"TAIL  ROTOR  INDUCED  POWER  IN  HOVER 

"TAIL  ROTOR  TOTAL  POWER  IN  HOVER 

"TAIL  LENGTH"; TAB (57)  TL 
"VERTICAL  STABILIZER  PLANFORM 

"VERTICAL  STABILIZER  SPAN" ; TAB (57 ) 

"VERTICAL  STABILIZER  SWEEP  AT  MID- 

"VERTICAL  STABILIZER  ASPECT 

"VERTICAL  STABILIZER  ANGLE  OF 


STABILIZER  COEFFICIENT  OF 
STABILIZER  LIFT  CURVE 


OF  VERTICAL 


COLOR  1,1,1:CLS: LOCATE  2 3, 1,0: PRINT 


1440 

1450 

1460 

1470 

" ~W=C4RESULT/ ": INPUT ; 

1480  AP=0:IF  PR=1  THEN 

1790  ELSE  IF  PR=3  THEN 

120 

1490  CLS: LOCATE' 2,25,1 

RESULTS" 

1500  LOCATE 


***  PRINT  OUT  DATA  *** 


"", PR: COLOR 
1490 


GOTO 
GOSUB 


700 


15,1,1 
ELSE  IF 
ELSE  IF 


PR=2 
PR=4 


THEN 
THEN 


GOSUB 
RETURN 


PRINT  "TABLE  OF  CHAPTER  FOUR 


5,12 


1: PRINT  "TAIL  ROTOR  RADIUS" ; TAB (57)  TR 


101 


ROTOR  ROTATIONAL 


1510  PRINT  TAB (12)  "TAIL 
VELOCITY"; TAB (57)  OMEGAT 

152  0  PRINT  TAB (12)  "TAIL  ROTOR 

153  0  PRINT  TAB (12)  "TAIL  ROTOR 
CTTR(l) 

154  0  PRINT  TAB (12) 
SIGMAT 

1550  PRINT  TAB (12) 
BT 

1560  PRINT  TAB (12) 
1570  PRINT  TAB (12) 
TAR 

158  0  PRINT  TAB (12)  "TAIL  ROTOR  BLADE  DRAG 

COEFFICIENT"; TAB (57)  TCDO 

1590  PRINT  TAB (12)  "TAIL  ROTOR  TIPLOSS" ;TAB (57) 


RPM";TAB(57)  TRPM 

THRUST  COEFFICIENT"; TAB (57) 


"TAIL  ROTOR  BLADE  SOLIDITY" ; TAB (57 ) 

"NUMBER  OF  TAIL  ROTOR  BLADES" ; TAB (57) 

"TAIL  ROTOR  BLADE  CHORD" ; TAB (57 )  TRC 
"TAIL  ROTOR  BLADE  ASPECT  RATIO" ; TAB (57) 


1600  PRINT  TAB (12)  "TAIL 
0GE";TAB(57)  PITR(l) 
1610  PRINT  TAB (12)  "TAIL 
OGE";TAB(57)  POTR(l) 
162  0  PRINT  TAB (12)  "TAIL 
OGE";TAB(57)  PTTR(l) 
1630  PRINT  TAB (12)  "TAIL 
IGE";TAB(57)  PITR(2) 
1640  PRINT  TAB (12)  "TAIL 
IGE";TAB(57)  PTTR(2) 
1650  PRINT  TAB (12)  "TAIL 
1660  GOSUB  1760 
167  0  CLS: LOCATE  5,12,1 


ROTOR  INDUCED  POWER  IN 


TRB 
HOVER 


ROTOR  PROFILE  POWER  IN  HOVER 
ROTOR  TOTAL  POWER  IN  HOVER 
ROTOR  INDUCED  POWER  IN  HOVER 
ROTOR  TOTAL  POWER  IN  HOVER 
LENGTH"; TAB (57)  TL 

TAB (12)  "VERTICAL  STABILIZER 


STABILIZER 
STABILIZER 


SPAN"; TAB (57)  SPAN 
SWEEP  AT  MID- 


PRINT 
PLANFORM  AREA"; TAB (57)  S 

168  0  PRINT  TAB (12)  "VERTICAL 

169  0  PRINT  TAB (12)  "VERTICAL 
CHORD"; TAB (57)  SWP 

1700  PRINT  TAB (12)  "VERTICAL  STABILIZER  ASPECT 

RATIO"; TAB (57)  VSAR 

1710  PRINT  TAB (12)  "VERTICAL  STABILIZER  ANGLE  OF 

ATTACK"; TAB (57)  ALTRDEG 

172  0  PRINT  TAB (12)  "VERTICAL  STABILIZER  COEFFICIENT  OF 

LIFT"; TAB (57)  CLTR(l) 

17  3  0  PRINT  TAB (12)  "VERTICAL  STABILIZER  LIFT  CURVE 

SLOPE"; TAB (57)  CLATR 

17  4  0  PRINT  TAB (12)  "LEVER  ARM  OF  VERTICAL 

STABILIZER"; TAB (57)  LAVS 

1750  GOSUB  1760 -.GOTO  1470 

1760  IF  AP=1  THEN  LOCATE  25,79,0 

"press  any  key  to  continue" 

1770  A$=INKEY$:IF  A$=""  THEN  1770 

178  0  RETURN 

1790  FOR  KK=1  TO  2 : GOSUB  1800: NEXT  KK:IF  AP=1 

CHR$  (12) : RETURN  1110  ELSE  IF  X=8  THEN  RETURN 

RETURN 


ELSE  LOCATE  25 , 27 , 0 : PRINT 


THEN 
1470 


LPRINT 
ELSE 
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18  00  CLS: LOCATE  2, 2  0,1: PRINT  "TAIL  ROTOR  POWER  WITH 

VERTICAL  STABILIZER" 

1810  IF  KK=1  THEN  LOCATE  4, 32,1: PRINT  "STANDARD  SEA 

LEVEL" : LOCATE  5, 2  0,1: PRINT  "ALTITUDE  =  0  FT 

TEMPERATURE  =  59  DEC.  F"  ELSE 

182  0  IF  KK=2  THEN  LOCATE  4, 3  0,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 35,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

1830  LOCATE  7, 13,1: PRINT  " THRUST 

POWER ":  LOCATE  9, 13,1:  PRINT 

"TAIL      VERT/      MAIN      VERT/ ": LOCATE  10, 3,1: PRINT 

"AIRSPEED   ROTOR     STAB       ROTOR     STAB    INDUCED 

PROFILE   TOTAL  with  v/s" 

1840  LOCATE  11,4,1: PRINT  "(knots)   (Ibf)      (Ibf) 

(SHP)     (*SHP*)    (SHP)      (SHP)         (SHP)" 

1850 

A$="###.#":B$="####.#":C$="####.#":D$=" #####.#": LOCATE 

13,4,1:PRINT  USING  A$ ;0 ( 1) : LOCATE  13 , 12 , 1 : PRINT  USING 

B$;TRT(KK,1) : LOCATE  13 , 21, 1 : PRINT  USING  B$ ;L(KK, 1) : LOCATE 

13,31,1:PRINT  USING  C$ ; RTF (KK, 1) : LOCATE  13 , 39 , 1 : PRINT 

USING  D$;VERSTAB(KK,1) 

1860  LOCATE  13 , 48 , 1 : PRINT  USING  C$ ;PITR(KK) : LOCATE 

13,57,1: PRINT  USING  C$ ;POTR(KK) : LOCATE  13 , 69 , 1: PRINT  USING 

C$;PTTR(KK) 

1870  K=14:F0R  L=2  TO  LL: LOCATE  K, 4,1: PRINT  USING 

A$;0(L) : LOCATE  K,12,1:PRINT  USING  B$ ;TRT (KK, L) : LOCATE 

K,21,1:PRINT  USING  B$ ;L(KK, L) : LOCATE  K,31,1:PRINT  USING 

C$;PTF(KK,L) : LOCATE  K,39,1:PRINT  USING  D$ ;VERSTAB (KK, L) 

1880  LOCATE  K,48,1:PRINT  USING  C$ ;PITRFI (KK, L) : LOCATE 

K,57,1:PRINT  USING  C$ ;POTRF (KK, L) : LOCATE  K,69,1:PRINT 

USING  C$;PTTRVSF(KK,L) :K=K+1:NEXT  L 

1890  IF  AP=1  THEN  LCOPY: RETURN  ELSE  GOSUB  1760: RETURN 

1900  '  ***  DATA  INPUT  *** 

1910  ' 

1920  • 

1930  ' 

194  0  COLOR  1,1,1: CLS: PRINT  "~W=INPUT/" : INPUT; "", WW: COLOR 

15,1,1 

1950  IF  WW=1  THEN  GOTO  1970  ELSE  IF  WW=2  GOTO  2570  ELSE  IF 

WW=3  GOTO  2710  ELSE  IF  ^^=4  THEN  RETURN  12  0  ELSE 

1960  • 

1970  CLS: LOCATE  2, 25,1: PRINT  "CHAPTER  FOUR  DATA  INPUT" 

1980  LOCATE  5, 12,1: PRINT  "1.   TAIL  ROTOR  RADIUS" 

2.  TAIL  ROTOR  ROTATIONAL  VELOCITY" 

3.  TAIL  ROTOR  RPM" 

4.  TAIL  ROTOR  THRUST  COEFFICIENT" 

5.  TAIL  ROTOR  BLADE  SOLIDITY" 

6.  NUMBER  OF  TAIL  ROTOR  BLADES" 

7.  TAIL  ROTOR  BLADE  CHORD" 

8.  TAIL  ROTOR  BLADE  ASPECT  RATIO" 


1990  PRINT  TAB (12) 

2000  PRINT  TAB (12) 

2010  PRINT  TAB (12) 

2  02  0  PRINT  TAB (12) 

2  03  0  PRINT  TAB (12) 

2  04  0  PRINT  TAB (12) 

2050  PRINT  TAB (12) 
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2060 
2070 
2080 
OGE" 
2090 
OGE" 
2100 
OGE" 
2110 
IGE" 
2120 
IGE" 
2130 
2140 
2150 
2160 


PRINT 
PRINT 
PRINT 


TAB (12) 
TAB (12) 
TAB (12) 


"9. 

"10 
"11 


TAIL  ROTOR  BLADE  DRAG  COEFFICIENT" 

TAIL  ROTOR  TIPLOSS" 

TAIL  ROTOR  INDUCED  POWER  IN  HOVER 


PRINT  TAB (12) 
PRINT  TAB (12) 
PRINT  TAB (12) 
PRINT  TAB (12) 


PRINT 
PRINT 
LOCATE 
IF  X<1 


TAB (12) 
TAB (12) 


"12.  TAIL  ROTOR  PROFILE  POWER  IN  HOVER 


"13.  TAIL  ROTOR  TOTAL  POWER  IN  HOVER 


"14.  TAIL  ROTOR  INDUCED  POWER  IN  HOVER 


"15.  TAIL  ROTOR  TOTAL  POWER  IN  HOVER 


"16.  TAIL  LENGTH" 
"17.  CONTINUE" 

DO  YOU 


23,53,1 


WANT  TO 
PRINT  " 


ENTER" ;X 


2 3, 53,1: PRINT  " 


STABILIZER 

2  3  60  PRINT 

2370  PRINT 

CHORD" 

2  3  80  PRINT 

2390  PRINT 

ATTACK" 

24  00  PRINT 

LIFT" 

2410  PRINT 

SLOPE" 

242  0  PRINT 

243  0  PRINT 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 

LOCATE  2  0,57, 
GOTO  2350 

CLS: LOCATE  5, 12,1: PRINT 
PLANFORM  AREA" 


":GOTO  2150 


2 3, 2 6,1: INPUT  "WHICH 

OR  X>17  THEN  LOCATE 
":GOTO  2150  ELSE  ON  X  GOTO 

218  0,219  0,2200,2210,2220,2230,2240,2250,2260,2270,2280,229 
0,2300,2310,2320,2330,2340 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 


5,57,1 

6,57,1 

7,57,1 

8,57,1 

9,57,1 

10,57 

11,57 

12,57 

13,57 

14,57 

15,57 

16,57 

17,57 

18, 

19, 


57, 
57, 


INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 
INPUT 


TR:GOTO  217  0 

OMEGAT:GOTO  217  0 

TRPM:GOTO  217  0 

CT:GOTO  2170 

SIGMAT:GOTO  2170 
BT:GOTO  217  0 
TRC:GOTO  2170 
TAR: GOTO  217  0 
TCDO:GOTO  2170 
TRB:GOTO  217  0 


PITR(l) 
POTR(l) 
PTTR ( 1 ) 
PITR(2) 
PTTR(2) 
TL:GOTO 


GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
2170 


2170 
2170 
2170 
2170 
2170 


TAB (12)  "18.  VERTICAL 


TAB (12) 
TAB (12) 

TAB (12) 
TAB (12) 

TAB (12) 

TAB (12) 

TAB (12) 
TAB (12) 


"19 
"20 

"21 
"22 


VERTICAL 
VERTICAL 

VERTICAL 
VERTICAL 


STABILIZER 
STABILIZER 

STABILIZER 
STABILIZER 


SPAN" 
SWEEP 


AT  MID- 


ASPECT  RATIO" 
ANGLE  OF 


"23.  VERTICAL  STABILIZER  COEFFICIENT  OF 

"24.  VERTICAL  STABILIZER  LIFT  CURVE 

"25.  LEVER  ARM  OF  VERTICAL  STABILIZER" 

"2  6.  RETURN  TO  DATA  INPUT  MENU" 
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244  0  LOCATE  23 , 26 , 1 : INPUT  "WHICH  DO  YOU  WANT  TO 

ENTER" ;X:XX=X-17 

2450  IF  X<18  OR  X>2  6  THEN  LOCATE  23 , 53 , 1: PRINT  " 

":GOTO  2440 

2460  ON  XX  GOTO 

2480,2490,2500,2510,252  0,253  0,254  0,2  550,2560 

2470  LOCATE  23 , 53 , 1 : PRINT  "  ":GOTO  2440 

2480  LOCATE  5, 57,1: INPUT  S:GOTO  2470 

2490  LOCATE  6, 57,1: INPUT  SPAN: GOTO  2470 

2500  LOCATE  7,57,1:INPUT  SWP:GOTO  2470 

2  510  LOCATE  8,57,1: INPUT  VSAR:GOTO  247  0 

2520  LOCATE  9, 57,1: INPUT  ALTRDEG:GOTO  2470 

2530  LOCATE  10 , 57 , 1 : INPUT  CLTR(1):G0T0  2470 

254  0  LOCATE  11, 57 , 1 : INPUT  CLATR:GOTO  247  0 

2550  LOCATE  12 , 57 , 1 : INPUT  LAVS : GOTO  2470 

2560  GOTO  1900 

2570  CLS: LOCATE  10 , 10 , 1 : INPUT  "DO  YOU  HAVE  ENTRIES  FOR  SEA 

LEVEL  (Y/N)";A$:IF  A$="Y"  THEN  KK=1:G0T0  2590  ELSE  IF 

A$="y"  THEN  KK=1:G0T0  2590  ELSE  IF  A$="N"  GOTO  2630  ELSE 

IF  A$="n"  GOTO  2630  ELSE 

2580  LOCATE  23 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again" :GOSUB  1760:GOTO  2570 

2590  LOCATE  12 , 10 , 1 : INPUT  "ENTER  THE  NUMBER  OF  AIRSPEEDS 

YOU  HAVE  CALCULATIONS  FOR" ; LL: LOCATE  14 , 10, 1 : PRINT  "IF  YOU 

DO  NOT  HAVE  AN  ENTRY  FOR  A  TABLE  ITEM  JUST  HIT  THE  ENTER 

KEY": LOCATE  15 , 10 , 1 : PRINT  "AND  THE  CURSOR  WILL  MOVE  TO  THE 

NEXT  ENTRY  POINT" 

2600  GOSUB  1760:GOTO  2640 

2  610  CLS: LOCATE  10 , 10 , 1: INPUT  "DO  YOU  HAVE  ANY  ENTRIES  FOR 

SPECIFICATION  ALTITUDE  (Y/N)";B$:IF  B$="Y"  THEN  GOTO  2  63  0 

ELSE  IF  B$="y"  GOTO  2630  ELSE  IF  B$="N"  GOTO  1900  ELSE  IF 

B$="n"  GOTO  1900  ELSE 

2  62  0  LOCATE  23 , 27 , 1: PRINT  "you  must  enter  (y/n)  try 

again" :GOSUB  1760:GOTO  2610 

263  0  LOCATE  12 , 10 , 1 : INPUT  "ENTER  SPECIFICATION 

ALTITUDE" ;ALT: LOCATE  14 , 10 , 1: INPUT  "ENTER  SPECIFICATION 

TEMPERATURE"; TEMP: LOCATE  16 , 10 , 1: INPUT  "ENTER  NUMBER  OF 

AIRSPEEDS  YOU  HAVE  CALCULATIONS  F0R";LL:KK=2 

2  64  0  CLS: LOCATE  2, 3  3,1: PRINT  "TAIL  ROTOR  POWER" 

2  650  IF  KK=1  THEN  LOCATE  4, 3 2,1: PRINT  "STANDARD  SEA 

LEVEL" : LOCATE  5, 2  0,1: PRINT  "ALTITUDE  =  0  FT 

TEMPERATURE  =  59  DEG.  F"  ELSE 

2660  IF  KK=2  THEN  LOCATE  4,30,1:PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

2670  LOCATE  7, 39,1: PRINT  " POWER  

": LOCATE  9, 17,1: PRINT  "AIRSPEED      TIP       INDUCED 

PROFILE      TOTAL" 

2680  LOCATE  10 , 18 , 1 : PRINT  "(knots)      MACH       (SHP) 

(SHP)        (SHP)" 
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2690  K=12:F0R  L=l  TO  LL:LOCATE  K,18,1:INPUT  0(L):LOCATE 

K,29,1:INPUT  TTM (KK, L) : LOCATE  K,38,1:INPUT 

PITRF ( KK , L)  : LOCATE  K , 4  9 , 1 : INPUT  POTRF ( KK , L)  : LOCATE 

K,60,1:INPUT  PTTRF (KK, L) : K=K+1 :NEXT  L 

2700  IF  KK=1  THEN  GOTO  2610  ELSE  GOTO  1900 

2710  CLS: LOCATE  10 , 10 , 1 : INPUT  "DO  YOU  HAVE  ENTRIES  FOR  SEA 

LEVEL  (Y/N)";A$:IF  A$="Y"  THEN  KK=1:G0T0  273  0  ELSE  IF 

A$="y"  THEN  KK=1:G0T0  2730  ELSE  IF  A$="N"  GOTO  2770  ELSE 

IF  A$="n"  GOTO  2770  ELSE 

2720  LOCATE  23 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again" :GOSUB  1760:GOTO  2710 

273  0  LOCATE  12 , 10 , 1 : INPUT  "ENTER  THE  NUMBER  OF  AIRSPEEDS 

YOU  HAVE  CALCULATIONS  FOR" ;LL: LOCATE  14 , 10 , 1 : PRINT  "IF  YOU 

DO  NOT  HAVE  AN  ENTRY  FOR  A  TABLE  ITEM  JUST  HIT  THE  ENTER 

KEY": LOCATE  15 , 10 , 1 : PRINT  "AND  THE  CURSOR  WILL  MOVE  TO  THE 

NEXT  ENTRY  POINT" 

2740  GOSUB  1760:GOTO  2780 

2750  CLS: LOCATE  10 , 10 , 1 : INPUT  "DO  YOU  HAVE  ANY  ENTRIES  FOR 

SPECIFICATION  ALTITUDE  (Y/N)";B$:IF  B$="Y"  THEN  GOTO  2770 

ELSE  IF  B$="y"  GOTO  2770  ELSE  IF  B$="N"  GOTO  1900  ELSE  IF 

B$="n"  GOTO  1900  ELSE 

2760  LOCATE  23 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 

again" :GOSUB  1760:GOTO  2750 

2770  LOCATE  12 , 10 , 1 : INPUT  "ENTER  SPECIFICATION 

ALTITUDE"; ALT: LOCATE  14 , 10 , 1 : INPUT  "ENTER  SPECIFICATION 

TEMPERATURE"; TEMP: LOCATE  16 , 10 , 1 : INPUT  "ENTER  NUMBER  OF 

AIRSPEEDS  YOU  HAVE  CALCULATIONS  F0R";LL:KK=2 

2780  CLS: LOCATE  2, 2 0,1: PRINT  "TAIL  ROTOR  POWER  WITH 

VERTICAL  STABILIZER" 

279  0  IF  KK=1  THEN  LOCATE  4, 3  2,1: PRINT  "STANDARD  SEA 

LEVEL" : LOCATE  5,20,1: PRINT  "ALTITUDE  =  0  FT 

TEMPERATURE  =  59  DEG.  F"  ELSE 

2800  IF  KK=2  THEN  LOCATE  4, 3  0,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

2810  LOCATE  7, 13,1:  PRINT  " THRUST 

POWER ":  LOCATE  9, 13,1:  PRINT 

"TAIL      VERT/      MAIN      VERT/" : LOCATE  10, 3,1: PRINT 

"AIRSPEED   ROTOR     STAB       ROTOR     STAB    INDUCED 

PROFILE   TOTAL  with  v/s" 

2820  LOCATE  11,4,1:PRINT  "(knots)   (Ibf)     (Ibf) 

(SHP)      (SHP)     (SHP)      (SHP)         (SHP)" 

2830  K=14:F0R  L=l  TO  LL:LOCATE  K,4,1:INPUT  0(L):LOCATE 

K,12,1:INPUT  TRT (KK, L) : LOCATE  K,21,1:INPUT  L(KK, L) : LOCATE 

K,31,1:INPUT  PTF (KK, L) : LOCATE  K,40,1:INPUT  VERSTAB (KK, L) 

2840  LOCATE  K,48,1:INPUT  PITRFl (KK, L) : LOCATE  K,57,1:INPUT 

POTRF (KK, L) : LOCATE  K, 69,1: INPUT  PTTRVSF (KK, L) : K=K+1 :NEXT 

L:IF  KK=1  THEN  GOTO  2750  ELSE  GOTO  1900 
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G.   CHAPTER  FIVE 


*******************  CHAPTER  FIVE  ********************* 

POWER  REFINEMENTS 


***   CHAPTER  FIVE  MAIN  PROGRAM   *** 


10  KEY(5)  OFF 

20 

30 

40 

50 

60  ' ****************************************************** 

70 

80 

90 

100  ' 

110  PRINT  "~C=ALL/": PRINT  "~L=CH5/" 

120  KEY(9)  ON:ON  KEY(9)  GOSUB  130 

13  0  COLOR  1,1,1:CLS: LOCATE  23 , 1,0 : PRINT 
"~W=C5MAIN/ " : INPUT ; " " , X 

14  0  COLOR  15, 1,1: IF  X=l  THEN  CHAIN  "BLDOP",,ALL  ELSE  IF 
X=3  THEN  GOSUB  44  0  ELSE  IF  X=4  THEN  GOSUB  54  0  ELSE  IF  X=5 
THEN  GOSUB  810  ELSE  IF  X=6  THEN  GOTO  970  ELSE  IF  X=7  THEN 
GOSUB  1090  ELSE 

150  IF  X=8  THEN  GOSUB  1150  ELSE  IF  X=9  THEN  GOSUB  1220 

ELSE  IF  X=10  THEN  GOSUB  1330  ELSE  IF  X=12  THEN  GOSUB  1450 

ELSE  IF  X=13  THEN  GOSUB  1570  ELSE  IF  X=14  THEN  GOSUB  1720 

ELSE  IF  X=15  THEN  GOSUB  1870  ELSE 

160  IF  X=16  THEN  GOSUB  440  ELSE  IF  X=17  THEN  GOSUB  2100 

ELSE  IF  X=18  THEN  GOSUB  1990  ELSE  IF  X=19  THEN  GOSUB  220 

ELSE  IF  X=2  0  THEN  CLS : LOCATE  2  3, 1,0: PRINT  " ~W= LOAD/ ": CHAIN 

"HDl", ,ALL 

17  0  LOCATE  2 5, 54,1: PRINT  "  " : GOTO  14  0 


180 

' 

190 

• 

200 

1 

*** 

STORE 

DATA 

ON 

FILE 

DISK  *** 

210 

• 

220 

CLS 

: LOCATE 

23, 

1/ 

0 

: PRINT 

"~W= 

DISK/' 

': GOSUB 

2  410: LOCATE 

25,27; 

,1 

: PRINT  • 

1 

11  . 

• 

LOCATE 

23, 1,0: PRINT  "~W=SAVE/" 

230  A(1)=SGW:A(2) =GW1 : A ( 3 ) =WE : A ( 4 ) =VTI PMAX :A(5)=R:A(6)= 

OMEGA : A ( 7 ) =CT : A ( 8 ) =S IGMA :A(9)=B:A(10)=C:A(11) =AR : A ( 12 ) =CL : 

A ( 1 3 ) =CLALPHA : A ( 1 4 ) =CDO : A ( 1 5 ) =DL : A ( 1 6 ) =MBL : A ( 1 7 ) =MU : A ( 1 8 ) = 

MAXFVEL : A ( 19 ) =TIPLOSS : A ( 2  0 ) =PIN : A ( 2 1 ) =P0 : A ( 2  2 ) =PT : A ( 2  3 ) =HP 

:A(24)=PERINDP 

240  V=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V=V+1 : Q=J+24 : A(V) =W(Q- 

24,I):NEXT  J,I:FOR  1=1  TO  3 : A(I+69) =W2A(I) : A(I+72) = 

W2B(I) :A(I+75)=W6A(I) : A (1+78) =W6B (I) : A(I+81) =W6C (I) :NEXT 

I:A(85)=N:A(86)=WE(N) :A(87)=GW(N) :A(88)=DL(N- 

1) :A(89)=FM(N-1) :A(90)=FL:A(91)=IRLG 

250  A(92)=NW 

2  60  A ( 9 3 ) =PERDI FW : A ( 9 4 ) =PERDI FP :A(95)=Y:A(96) =FUEL : A ( 9 7 )  = 

PEOPLE:A(98)=UL:A(99)=SPECIAL:A(100)=ENGINE:A(101)=ZZ:A(10 

2)=AB:A(103)=GR:A(104)=RH:A(105)=H:A(106)=D:A(107)=PINI:A( 
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108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) : A(112 ) =MM: A(ll 
3)=M(2) :A(114)=CRUISEV 

270  A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118)=MAXF2:A 
( 119 ) =MAXCRU1 : A ( 12  0 ) =ALT : A ( 12 1 ) =TEMP : A ( 12  2 ) =LL : A ( 12  3 ) =TR : A 
(12  4) =TRPM : A ( 12  5 ) =OMEGAT : A ( 12  6 ) =TCDO : A ( 12  7 ) =BT : A ( 12  8 ) =TAR : 
A ( 1 2  9 ) =TRC : A ( 1 3  0 ) =TTR : A ( 1 3 1 ) =CTTR : A ( 1 3  2 ) =TRB : A ( 1 3  3 ) =S IGMAT 
:A(13  4)=V:A(13  5)=SPAN 

280  A(136)=S:A(137) =SWP : A ( 1 3 8 ) =SWEEP : A ( 13 9 ) =LAVS : A ( 14 0 )  = 
VSAR:A(141)=BETA2:A(142)=T:A(143)=T2:A(144)=T3:A(145)=CLAT 
R:A(14  6)=ALTR:A(147)=ALTRDEG:A(148)=TL:A(149)=BLTW:A(150)= 
CM : A ( 15 1 ) =THT : A ( 152 ) =AM : A ( 15  3 ) =AMAX : A ( 15  4 ) =PINIGE : A ( 15  5 ) =P 
TTI:A(156)=RSHP 

29  0  A(157)=STYPE:A(158)=ICESHD:A(159)=STRTIN:A(16  0)=INLET: 
A(161)=BARR:A(162)=PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165)= 
INRED:A(16  6)=EEDS:A(167)=RSHP1:A(168)=RSHP2:A(169)=RSHP3:A 
(170)=RSHP1A:A(171)=RSHP2A:A(172)=RSHP3A:A(173)=ESHP:A(174 
)=L0SS:G=175 

300  LL=LL+1:F0R  1=1  TO  LL: A(G) =0 (I) : G=G+1 :NEXT  I:G=G+1+LL: 
G1=G+1+2*LL:G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2*LL 
310  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G) =PINF (I , J) : A(G1) = 
POF(I,J) :A(G2)=PPF(I,J) : A(G3) =PTF (I , J) : A(G4) =TM(I , J) :G=G+1 
:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J, I 
320  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : A(G4) =PITR(I) : 
A(G5)=P0TR(I) :A(G6)=PTTR(I) : A(G7) =CLTR(I) :G4=G4+1 :G5=G5+1 : 
G6=G6+1:G7=G7+1:NEXT  I : G8=G7+H-2* (LL-1) : G9=G8+l+2* (LL-1) 
330  FOR  1=1  TO  2:F0R  J=2  TO  LL: A (G7) =PITRF (I , J) : A (G8 ) = 
POTRF(I,J) :A(G9)=PTTRF(I,J) : G7=G7+1 : G8=G8+1 : G9=G9+1 : NEXT 
J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

340  FOR  1=1  TO  2:F0R  J=l  TO  LL: A (G9 ) =TTM(I , J) : A (GIO) = 
TRT(I,J) :A(G11)=L(I,J) : A(G12 ) =VERSTAB (I , J) : A(G13 ) =PTTRVSF ( 
I, J) :A(G14)=PITRFI(I, J) :G9=G9+1:G10=G10+1:G11=G1H-1:G12=G1 
2+l:G13=G13+l:G14=G14+l:NEXT  J, I 

350  G15=G14+l:G16=G15+l+2*LL:G17=G16+l+2*LL:G18=G17+l+2* 
LL:G19=G18+1+2*LL:G2  0=G19+ 1+2 *LL:G21=G2 0+1+2 *LL 
360  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G15) =AL90 (I , J) : A(G16) = 
AL270(I,J) :A(G17)=M90(I,J) : A(G18) =MCRIT (I , J) : A (G19) =PS (I , J 
) :A(G20)=PM(I,J) : A (G21) =PTT (I , J) : G15=G15+1 : G16=G16+1 : G17=G 
17+1 : G18=G18+1:G19=G19+1:G2  0=G2 0+1 :G21=G2 1+1: NEXT  J, I 
370  LL(3)=175+(46*LL) :LL=LL-1 

380  Z=5:0PEN  "B:DATA1"  FOR  OUTPUT  AS  #1: PRINT  #1,  Z : FOR 
1=1  TO  10:PRINT  #1,  LL(I):NEXT  I:CLOSE  #1 

39  0  OPEN  "B:DATA5"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  LL(3): PRINT 
#1,  A ( I) : NEXT  I: CLOSE  #1: RETURN  12  0 
400  ' 
410  ' 
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420 
430 
440 
450 
460 


***  SECTION  5.3  *** 


5,30,1 


7,33, 


PRINT  "***  SECTION  5.3  ***": LOCATE 

0,3,1: PRINT  "BLADE 
DEGREES  AND  MINUS  TEN 
YOUR  SELECTION  FOR 


CLS : LOCATE 
1: PRINT  "-BLADE  TWIST-" : LOCATE 
TWIST  IS  USUALLY  BETWEEN  MINUS  SEVEN 
DEGREES": LOCATE  12 , 15 , 1 : INPUT  "ENTER 
BLADE  TWIST" ;BLTW 

470  THT=BLTW*PI/180: LOCATE  23 , 30 , 1 : INPUT  "ANY  CHANGES 
(Y/N) ";A$:IF  A$="Y"  THEN  GOTO  460  ELSE  IF  A$="y"  GOTO 
ELSE  IF  A$="N"  GOTO  490  ELSE  IF  A$="n"  GOTO  490  ELSE 
480  LOCATE  24 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 
again": GOTO  470 

490  IF  X=16  THEN  GOTO  510  ELSE  RETURN  120 
500 
510 
520 
530 
540 
550 


460 


***  SECTION  5.4  *** 


CLS: LOCATE  5,3  0,1 


LOCATE 


4  ***" 
LOCATE 

FOR  MAIN  ROTOR 
2  3, 1,0: PRINT 


PRINT  "***  SECTION  5, 
7, 2  6,1: PRINT  "-ROTOR  TIP  ANGLE  OF  ATTACK-"; 
10, 10,1: INPUT  "ENTER  STALL  ANGLE  OF  ATTACK 
BLADE  SECTION" ; AMAX : AM=AMAX*PI/18 0 : LOCATE 
"-W=COMP/" 

5  60  MM=M:RH0(1)=RH0:BB=B:B=TIPL0SS:DA=PI*R^2:VT=0MEGA*R: 
LLL=LL+1:F0R  U=l  TO  2 : FOR  L=l  TO  LLL:VF=0 (L) *1 . 687778 : IF 
L=LLL  THEN  0 (L) =0 (L-1) +20 

570  CT=GW(N)/(RHO(U) *DA*VT^2) : B=l- (SQR(2*CT) /BB) 
580  MU3=VF/VT:T1=.5*( (B^2 ) +. 5* (MU3^2) ) :T2=( (B^3)/3)+(.5* 
(MU3^2)*B) :T3=( (B^2)/4) *(B^2+MU3^2) :T4=(.5*MU3) *( (B^2)+( (M 
U3^2)/4) ) :B1=(B^2-.5*(MU3^2) ) :A11=4*( (MU3* (B^2) /2 ) - 
(MU3^3)/8)/( (B^2)*B1) : A12= (8*MU3*B) / (3*B1) : A13= (2*MU3* (B^2 
) )/Bl:A14=(B^2+(3*(MU3^2) )/2)/Bl 

590  A14=(B^2+(3*MU3^2)/2)/Bl:PPF(U,L)=RHO(U)*VF^3* 
EFPA/2:IF  O(L)<=40  THEN  LAM=SQR(CT/2) : PPF (U, L) =PPF (U, L) / 
550  ELSE  LAM=-( ( (PPF(U,L) )/GW(N) )+(GW(N)/(2*RH0(U) *DA 
*VF) ) )/VT:PPF(U,L)=PPF(U,L)/550 

600  F(1)=(2*CT/(SIGMA*CLALPHA) ) -LAM*T1-THT*T3 : F (2 ) =- 
LAM*A11-THT*A13 : K ( 1 , 1) =T2 : K ( 1 , 2 ) =T4 : K ( 2 , 1 ) =A12 : 
K(2,2)=A14:H=2 
610  • 

62  0  •      SIMULTANEOUS  EQUATION  SOLVER  USING  MATRIX 

63  0  '      DECOMPOSTION  WITH  FORWARD  SUBSTITUTION  IN  LOWER 

64  0  '      TRIANGULAR  SYSTEM  AND  BACK-SUBSTITUTION  IN  UPPER 
650  •      TRIANGULAR  SYSTEM 

660  • 

670  ' 

680  FOR  D=2  TO  H:FOR  1=1  TO  D-1:F0R  M=l  TO  I-1:K(D,I)= 

K(D,I)-(K(D,M)*K(M,I) ) :K(I,D)=K(I,D)-(K(I,M)*K(M,D) ) :NEXT 
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M:K(D,I)=K(D,I)/K(I,I) :NEXT  I : FOR  J=l  TO  D-1:K(D, D) =K(D, D) 

-(K(D,J) *K(J,D) ) :NEXT  J,D 

690  FOR  1=2  TO  H:E=0:FOR  J=l  TO  I-l : G=K(I , J) *F (J) : E=E+G: 

NEXT  J:F(I)=F(I)-E:NEXT  I 

700  F(H)=F(H)/K(H,H) :FOR  I=H-1  TO  1  STEP  -1:P=0:FOR  J=I+1 

TO  H:Q=F(J) *K(I,J) :P=P+Q:NEXT  J: F (I) = (F (I) -P) /K(I , I) :NEXT 

I:TH0=F(1) :TH2=F(2) 

710  AL90(U,L)=(TH0+TH2+THT+(LAM/(1+MU3) ) ) *180/PI : AL270 

(U,L)=(TH0-TH2+THT+(LAM/ (1+MU3) ) ) *180/PI:NEXT  L,U:M=MM 

72  0  FOR  KK=1  TO  2:G0SUB  730: NEXT  KK:IF  Xl=l  OR  X2=l  THEN 
GOTO  87  0  ELSE  IF  X=6  THEN  RETURN  ELSE  IF  X=16  THEN  GOTO 
810  ELSE  IF  PR=2  THEN  GOTO  2100  ELSE  IF  AU=1  THEN  LPRINT 
CHR$  (12) :GOTO  1990  ELSE  GOTO  120 

73  0  CLS: LOCATE  2, 15,1: PRINT  "COMPRESSIBILITY  AND  STALL 
EFFECTS  ON  POWER  REQUIRED" : IF  KK=1  THEN  LOCATE 

4, 3 2,1: PRINT  "STANDARD  SEA  LEVEL" : LOCATE  5, 2  0,1: PRINT 

"ALTITUDE  =  0  FT      TEMPERATURE  =  59  DEG.  F"  ELSE 

740  IF  KK=2  THEN  LOCATE  4, 30,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

750  LOCATE  7 , 7 , 1 : PRINT  "AIRSPEED     ALPHA       ALPHA 

M9  0       Merit       Ps         Pm": LOCATE  8 , 9 , 1 : PRINT 

"(kts)       (90)       (270)  (shp) 

(shp)" 

760  A$="###.#":B$="##.###":C$="#.####":K=10:FOR  L=l  TO 

LL+1:L0CATE  K,9,1:PRINT  USING  A$ ;0 (L) : LOCATE  K,18,1:PRINT 

USING  B$;AL9  0(KK,L) : LOCATE  K,29,1:PRINT  USING 

B$ ;AL2 7 0 (KK, L) : LOCATE  K,39,1:PRINT  USING 

C$;M9  0(KK,L) : LOCATE  K,49,1:PRINT  USING  C$ ;MCRIT(KK, L) 

770  D$="####.#":LOCATE  K,59,1:PRINT  USING 

D$ ; PS (KK, L) : LOCATE  K,69,1:PRINT  USING 

D$;PM(KK,L) :K=K+1:NEXT  L:B=BB:IF  AU=1  THEN  GOTO  780  ELSE 

GOSUB  2410: RETURN 

78  0  LCOPY: RETURN 

790 

800 

810 

820 

830 

840  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  5.5  ***": LOCATE 

7, 27,1: PRINT  "-STALL  POWER  INCREMENT-" : LOCATE  2 3, 1,0: PRINT 

"~W=COMP/" 

850  FOR  1=1  TO  2: FOR  L=l  TO  LLL: ACK=AL270 (I , L) -AMAX: IF 

ACK<0  THEN  PS(I,L)=0  ELSE  PS (I , L) = (ACK/4 ) *POF (I , L) 

860  NEXT  L,I 

870  FOR  KK=1  TO  2 : GOSUB  880: NEXT  KK:IF  Xl=l  THEN  X1=0:GOTO 

1040  ELSE  IF  X2=l  THEN  X2=0:GOTO  1120  ELSE  IF  X=16  GOTO 

970  ELSE  IF  PR=3  GOTO  2100  ELSE  IF  AU=1  THEN  LPRINT  CHR$ 

(12) :GOTO  1990  ELSE  GOTO  120 
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***  SECTION  5.5  *** 


88  0  CLS: LOCATE  2, 3  0,1: PRINT  "TOTAL  POWER  REQUIRED" : LOCATE 
3, 2 8,1: PRINT  "(With  High  Speed  Effects)": IF  KK=1  THEN 
LOCATE  4, 3  2,1: PRINT  "STANDARD  SEA  LEVEL" : LOCATE 

5, 2  0,1: PRINT  "ALTITUDE  =  0  FT      TEMPERATURE  =  59  DEG.  F" 
ELSE 

89  0  IF  KK=2  THEN  LOCATE  4, 3  0,1: PRINT  "SPECIFICATION 
ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 
5, 35,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 

900  LOCATE  7 , 5 , 1 : PRINT  "AIRSPEED       Pi        Po        Pp 

Ps       Pm       Ptr       PT": LOCATE  8,7,1: PRINT  " (kts) 

(shp)     (shp)     (shp)     (shp)     (shp)     (shp) 

(shp) " 

910  A$="###.#":B$="####.#":K=10:FOR  L=l  TO  LL+1: LOCATE 

K, 7,1: PRINT  USING  A$ ;0 (L) : LOCATE  K, 17,1: PRINT  USING 

B$;PINF(KK,L) : LOCATE  K,26,1:PRINT  USING 

B$;POF(KK,L) : LOCATE  K,35,1:PRINT  USING  B$ ;PPF (KK, L) : LOCATE 

K, 44,1: PRINT  USING  B$;PS(KK,L) 

920  PTTRF(KK,1)=PTTR(KK) : LOCATE  K,53,1:PRINT  USING 

B$;PM(KK,L) : LOCATE  K,62,1:PRINT  USING 

B$;PTTRF(KK,L) : LOCATE  K, 7 2,1: PRINT  USING 

B$;PTT(KK,L) :K=K+1:NEXT  L:IF  AU=1  THEN  GOTO  930  ELSE  GOSUB 

2410: RETURN 

93  0  LCOPY: RETURN 

940 

950 

960 

970 

980 

990  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  5.6  ***": LOCATE 

7,27,1: PRINT  "-COMPRESSIBILITY  EFFECTS-" : LOCATE 

10, 24,1: INPUT  "ENTER  BLADE  CRITICAL  MACH  NUMBER"; CM 

1000  LOCATE  12, 24,0: INPUT  "IS  THIS  A  CAMBERED  AIRFOIL 

(Y/N) ";CAM$: LOCATE  2 3, 1,0: PRINT 

" ~W=COMP/ " : VT=OMEGA*R : DA=PI *R^  2 : RHO ( 1 ) =RHO 

1010  M(l)=1116.89:FOR  1=1  TO  2 : FOR  L=l  TO 

LL+1:VF=0(L) *1.687778:MTIP=VT/M(I) :MU3=VF/VT:M90 (I , L) =MTIP 

*(1+MU3):IF  CAM$="N"  OR  CAM$="n"  THEN  MCRIT (I , L) =CM- (2 . 3* 

ABS(AL90(I,L) ) *PI/180)  ELSE  MCRIT (I , L) =CM- (2 . 3*AL90 (I , L) * 

PI/180) 

1020  MD=M90(I,L)-MCRIT(I,L)-.06:IF  MD<0  THEN  PM(I,L)=0 

ELSE  PM(I,L)=( ( (.012*MD)+.1*(MD^3) ) *SIGMA*RHO (I) *DA*VT^3) 

/550 

1030  NEXT  L,I:X1=1:G0SUB  720 

1040  IF  X=16  THEN  GOTO  1090  ELSE  RETURN  120 

1050  ' 

1060  ' 


***  SECTION  5.6  *** 
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***  SECTION  5.9  *** 


1070  '  ***  SECTION  5.7  *** 

1080  ' 

1090  • 

1100  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  5.7  ***": LOCATE 

7, 2 8,1: PRINT  "-TOTAL  POWER  REQUIRED-" : LOCATE  2  3, 1,0: PRINT 

"~W=COMP/" 

1110  FOR  1=1  TO  2: FOR  L=l  TO  LL+1 : PTT (I , L) =POF (I , L) + 

PINF ( I , L) +PPF ( I , L) +PS ( I , L) +PM ( I , L) +PTTRF ( I , L) : NEXT 

L,I:X2=1:G0SUB  870 

1120  IF  X=16  THEN  GOTO  1150  ELSE  RETURN  120 

1130  ' 

1140  • 

1150  '  ***  SECTION  5.8  *** 

1160  ' 

1170  ' 

1180  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  5.8  ***": LOCATE 

7, 13,1: PRINT  "-ROTOR  SHAFT  HORSEPOWER  REQUIRED  AT  MAXIMUM 

VELOCITY-" 

119  0  LOCATE  10, 2  0,1: PRINT  "TOTAL  ROTOR  SHAFT  HORSEPOWER 

REQUIRED  AT:": LOCATE  12 , 26 , 1 : PRINT  "STANDARD  SEA  LEVEL 

="; PTT ( 1, LL) : LOCATE  14 , 26 , 1 : PRINT  "SPECIFICATION  ALTITUDE 

=";PTT(2,LL) :GOSUB  2410:IF  X=16  THEN  GOTO  1240  ELSE  GOTO 

120 

1200 

1210 

1220 

1230 

1240 

1250  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  5.9  ***": LOCATE 

7, 16,1: PRINT  "-ROTOR  SHAFT  HORSEPOWER  FOR  HOVER  CEILING, 

IGE-": LOCATE  10 , 20 , 0 : INPUT  "ENTER  SPECIFICATION  HOVER 

CEILING";ALT1:RHO(3)=RHO*(1-6.87535E-06*ALT1)^4.2  561 

1260  CTHC=GW(N)/ (PI*RH0(3) *R^4*OMEGA^2 ) : TIPHC=1-SQR (2* 

CTHC)/B:PIHC=GW(N) ^1.5/ (SQR(2*RH0 (3 ) *PI*R^2 ) *TIPHC*550) : PO 

HC=CD0*SIGMA*RH0(3) *PI*R^5*OMEGA^3/44  00 

1270  HH=(RH+5)/(2*R) :PINIGEH=( (-.1276*( (HH) ^4)+.708*( (HH) ^ 

3)-1.4569*( (HH) ^2 ) +1 . 3432* (HH) + . 5147 ) *PIHC) : PTTI=PINIGEH+ 

POHC+PTTRHC 

1280  TRTH=PINIGEH*550/(OMEGA*TL) : CTTRHC=TRTH/ (PI*RHO (3 ) * 

TR^4  *0MEGAT^2 )  : TIPTRHC=1-SQR ( 2  *CTTRHC) /BT : DELTA= ( 1- 

(6.87535E-06*ALT1) ) ^5 . 2561 : THETA= (1+ ( 6 . 87535E-06*ALT1) ) 

1290  PITRHC=TRTH^1. 5/ (SQR (2*RH0 (3 ) *PI*TR^2) *TIPTRHC*550) : 

P0TRHC=CD0*RH0(3) *PI*TR^5*SIGMAT*OMEGAT^3/4400 : PTTRHC=PITR 

HC+POTRHC:PTTI=(PINIGEH+POHC+PTTRHC)/ (DELTA*SQR(THETA) ) 

13  00  LOCATE  12 , 15 , 1 : PRINT  "INDUCED  POWER  REQUIRED  AT 

SPECIFICATION  ALTITUDE  ="; PINIGEH: LOCATE  14 , 15 , 1 : PRINT 

"TOTAL  POWER  REQUIRED  AT  SPECIFICATION  ALTITUDE 

=";PTTI:GOSUB  2410: IF  X=16  THEN  GOTO  1350  ELSE  GOTO  120 

1310  ' 

1320  • 
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***  SECTION  5.10  *** 


***  SECTION  5.12  *** 


1330 

1340  ' 

1350  .  ' 

1360  CLS: LOCATE  5,30,1: PRINT  "***  SECTION  5.10  ***": LOCATE 

7, 19,1: PRINT  "-MAXIMUM  ROTOR  SHAFT  HORSE  POWER  REQUIRED-" 

13  7  0  IF  PTT(1,1)>PTT(1,LL)  THEN  RSHP=PTT (1 , 1)  ELSE 
RSHP=PTT(1,LL) 

1380  IF  PTT(2,1)>RSHP  THEN  RSHP=PTT (2 , 1)  ELSE  RSHP=RSHP 
139  0  IF  PTT(2,LL)>RSHP  THEN  RSHP=PTT (2 , LL)  ELSE  RSHP=RSHP 

14  00  IF  PTTI>RSHP  THEN  RSHP=PTTI  ELSE  RSHP=RSHP 

1410  LOCATE  10, 15,1: PRINT  "MAXIMUM  ROTOR  SHAFT  HORSE  POWER 

REQUIRED  =";RSHP:GOSUB  2410: IF  X=16  THEN  GOTO  1450  ELSE 

GOTO  12  0 

1420 

1430 

1440 

1450 

1460 

1470 

4,27, 

148  0  LOCATE  8,27,1: PRINT  "1.  S -TYPE ": LOCATE  10 , 27 , 1 : PRINT 

"2.  ICE  SHIELD": LOCATE  12 , 27 , 1 : PRINT  "3.  STRAIGHT- 

IN": LOCATE  14, 2  7,1: PRINT  "4.  SELECTIONS  COMPLETE" 

1490  LOCATE  16 , 30 , 1 : INPUT  "WHICH  SELECTION" ;U: IF  U=l  THEN 

GOTO  1510  ELSE  IF  U=2  GOTO  1520  ELSE  IF  U=3  GOTO  1530  ELSE 

IF  U=4  GOTO  154  0  ELSE 

1500  IF  U<1  OR  U>4  THEN  GOTO  1490 

STYPE=. 05: LOCATE  8,45,0: PRINT  "*":GOTO  1490 
ICESHD=.l: LOCATE  10 , 45 , 0 : PRINT  "*":GOTO  14  90 
STRTIN=. 02: LOCATE  12 , 45 , 0 : PRINT  "*":GOTO  1490 
INLET=STYPE+ICESHD+STRTIN:PINLET=INLET*100:RSHP1=RSHP 
*INLET: LOCATE  18 , 20 , 1 : PRINT  "PERCENT  INCREASE  DUE  TO  INLET 
=";PINLET: LOCATE  2  0, 2  0, 1: PRINT  "SHAFT  HORSEPOWER  REQUIRED 
FOR  INLETS  " ;RSHP1 :RSHP1A=RSHP* (1+INLET) 
1550  LOCATE  22 , 10 , 1 : PRINT  "TOTAL  SHAFT  HORSEPOWER 
INLETS  INCLUDED  =" ;RSHP1A: GOSUB  2410: IF  X=16 
1600  ELSE  GOTO  120 


CLS : LOCATE 

1: PRINT  "-INLETS 


2, 3 0,1: PRINT 


"***  SECTION 
AND  INLET  DUCTING-" 


5.12  ***": LOCATE 


1510 
1520 
1530 
1540 


REQUIRED 

THEN 


***  SECTION  5.13  *** 


WITH 

GOTO 

1560 

1570 

1580 

1590 

1600 

1610  CLS:LOCATE  2,30,1:PRINT  "***  SECTION  5.13  ***":LOCATE 

4,25,1: PRINT  "-ENGINE  AIR  PARTICLE  SEPARATORS-" 

162  0  LOCATE  8, 2  5,1: PRINT  "1.  BARRIER" : LOCATE  10 , 25 , 1 : PRINT 
"2.  PARTICLE  SEPARATOR" : LOCATE  12 , 25 , 1 : PRINT  "3.  SELECTION 
COMPLETE" 

163  0  LOCATE  14 , 30 , 1 : INPUT  "WHICH  SELECTION" ;U: IF  U=l  THEN 
GOTO  1650  ELSE  IF  U=2  GOTO  1660  ELSE  IF  U=3  GOTO  1670  ELSE 
1640  IF  U<1  OR  U>3  THEN  GOTO  1630 

1650  BARR= . 1 : LOCATE  8,45,0:PRINT  "*":GOTO  1630 
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***  SECTION  5.14  *** 


1660  LOCATE  10 , 50 , 0 : INPUT 

"PERCENT" ; PS :PARTSEP=PS*. 01: LOCATE  10 , 47 , 0 : PRINT  "*":GOTO 

1630 

1670  EAPS=BARR+PARTSEP:PEAPS=EAPS*100:RSHP2=EAPS*RSHP1A: 

LOCATE  16,2  0,1: PRINT  "PERCENT  INCREASE  DUE  TO  EARS 

="; REAPS: LOCATE  18 , 20 , 1 : PRINT  "SHAFT  HORSEPOWER  REQUIRED 

FOR  EARS  =";RSHP2:RSHP2A=RSHP1A*(1+EAPS) 

168  0  LOCATE  20 , 10 , 1 : PRINT  "TOTAL  SHAFT  HORSEPOWER  REQUIRED 

WITH  INLETS  &  EARS  =" ;RSHP2A:G0SUB  2410: IF  X=16  THEN  GOTO 

1720  ELSE  GOTO  120 

1690 

1700 

1710 

1720 

1730 

1740  CLS: LOCATE  2, 30,1: PRINT  "***  SECTION  5.14  ***": LOCATE 

4, 27,1: PRINT  "-ENGINE  EXHAUST  DIFFUSERS-" 

1750  LOCATE  8, 25,1: PRINT  "1.  HEAT  DIFFUSER" : LOCATE 

10, 2  5,1: PRINT  "2.  INFRA-RED  SUPPRESSER" : LOCATE 

12,2  5,1: PRINT  "3.  SELECTION  COMPLETE" 

17  60  LOCATE  14 , 30 , 1 : INPUT  "WHICH  SELECTION" ;U: IF  U=l  THEN 

GOTO  1780  ELSE  IF  U=2  GOTO  1790  ELSE  IF  U=3  GOTO  1800  ELSE 

1770  IF  U<1  OR  U>3  THEN  GOTO  1760 

1780  HDIF=. 03: LOCATE  8,50,0: PRINT  "*":GOTO  1760 

1790  INRED=. 05: LOCATE  10 , 50 , 0 : PRINT  "*":GOTO  1760 

1800  IF  RSHP2A=0  THEN  RSHP2A=RSHP1A 

1810  EEDS=HDIF+INRED:PEEDS=EEDS*100:RSHP3=RSHP2A*EEDS: 

LOCATE  16, 2  0,1: PRINT  "PERCENT  INCREASE  DUE  TO  EEDS 

="; REEDS: LOCATE  18 , 20 , 1 : PRINT  "SHAFT  HORSEPOWER  REQUIRED 

FOR  EEDS  =";RSHP3:RSHP3A=RSHP2A*(1+EEDS) 

182  0  LOCATE  20 , 10 , 1 : PRINT  "TOTAL  SHAFT  HORSEPOWER  REQUIRED 

WITH  INLETS,  EARS  &  EEDS  =" ;RSHP3A: GOSUB  2410: IF  X=16  THEN 

GOTO  1870  ELSE  GOTO  120 

1830 

1840 

1850 

1860 

1870 

1880  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  5.15  ***": LOCATE 

7,22,1: PRINT  "-ENGINE  SHAFT  HORSE  POWER  REQUIRED- 

":L0SS1=RSHP 

1890  IF  RSHP1A>0  THEN  L0SS1=RSHP1A 

1900  IF  RSHP2A>0  THEN  L0SS1=RSHP2A 

1910  IF  RSHP3A>0  THEN  L0SS1=RSHP3A 

1920  IF  ENGINE=1  THEN  GOT  1670  ELSE  IF  ENGINE=2  GOTO  1940 

ELSE  IF  ENGINE=3  GOTO  1950 

1930  LOSS=LOSS1*1.03:GOTO  1960 

1940  LOSSA=LOSS1*1.1:LOSS=LOSSA*1.03:GOTO  1960 

1950  L0SSA=L0SS1*1. 15:L0SSB=L0SSA*1. 03 :L0SS=L0SSB*1. 01333 

33#:GOTO  1960 


***  SECTION  5.15  *** 
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10, 18,1: PRINT 


;ESHP:GOSUB  2410 
***  PRINT 


1960  ESHP=LOSS+10: LOCATE 

HORSEPOWER  REQUIRED  =" 

1970  • 

1980  ' 

1990  ' 

2  000  COLOR  1,1,1:CLS: LOCATE  2  3,1,0 

"~W=C5PRINT/ " : INPUT ; " " , RR : COLOR  15 


"ENGINE  SHAFT 
RETURN  12  0 
OUT  DATA  *** 


PRINT 
1,1 


2010  AU=0:ON  RR  GOTO  2030,2030,2030,2020 

2  02  0  RETURN  12  0 

2  03  0  CLS: LOCATE  2  3, 1,0: PRINT 

RR  GOTO  2040,2050,2060 

2  04  0  AU=1:G0SUB  214  0 

AU=1:G0SUB  72  0 

AU=1:G0SUB  870 


~W=PRINTER/":GOSUB  2  410: ON 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 


***  LIST  RESULTS  *** 


COLOR  1,1,1: CLS 


LOCATE 
II II 


23 


,1,0: PRINT 
" ~W=C5RESULT/ " : INPUT ; " " , PR : COLOR  15,1,1 

213  0  AU=0:IF  PR=1  THEN  GOTO  214  0  ELSE  IF  PR=2  THEN  GOSUB 
72  0  ELSE  IF  PR=3  THEN  GOSUB  870  ELSE  IF  PR=4  THEN  RETURN 
120 

214  0  CLS: LOCATE  1,25,1: PRINT  "TABLE  OF  CHAPTER  FIVE 
RESULTS" 

2150  STYPEA=STYPE*100 : ICESHA=ICESHD*100 : STRTINA=STRTIN*100 
: BARRA=BARR*100 : PARTSEPA=PARTSEP*100 : HDIFA=HDIF*100 : INREDA 
=INRED*100 

PRINT  "BLADE  TWIST" ; TAB (57 )  BLTW 
"BLADE  STALL  ANGLE  OF  ATTACK" ; TAB (57 ) 


2160 
2170 
AMAX 
2180 
2190 


LOCATE  3,12,1 
PRINT  TAB (12) 


PRINT 
PRINT 


CLALPHA 
22  00  PRINT 
2210  PRINT 
222  0  PRINT 
PTT(2,LL) 
22  3  0  PRINT 


2240 
PTTI 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 


PRINT 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB (12) 
TAB (12) 

TAB (12) 
TAB (12) 
TAB (17) 

TAB (17) 
TAB (12) 

TAB (12) 
TAB (12) 
TAB (17) 
TAB (17) 
TAB (17) 
TAB (12) 
TAB (17) 
TAB (17) 


BLADE  Merit"; TAB (57)  CM 

BLADE  LIFT  CURVE  SLOPE" ; TAB (57) 

BLADE  Cdo";TAB(57)  CDO 

RSHP  REQUIRED  AT  MAXIMUM  VELOCITY:" 

SPECIFICATION  ALTITUDE" ; TAB (57) 

STANDARD  SEA  LEVEL" ; TAB (57)  PTT(1,LL) 
RSHP  FOR  HOVER  CEILING,  IGE";TAB(57) 

MAXIMUM  RSHP"; TAB (57)  RSHP 
INLETS  AND  INLET  DUCTING  LOSSES:" 
S -TYPE"; TAB (57)  STYPEA;"%" 
ICE  SHEILD";TAB(57)  ICESHDA;"%" 
STRAIGHT  IN"; TAB (57)  STRTINA;"%" 
ENGINE  AIR  PARTICLE  SEPARATORS:" 
BARRIER"; TAB (57)  BARRA;"%" 
PARTICLE  SEPARATOR"; TAB (57) 


PARTSEPA;"%" 
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23  3  0  PRINT  TAB (12)  "ENGINE  EXHAUST  DIFFUSERS:" 

2340  PRINT  TAB (17)  "HEAT  DIFFUSERS" ;TAB (57)  HDIFA;"%" 

2  3  50  PRINT  TAB (12)  "INFRA-RED  SUPPRESSER  DIFFUSER" ;TAB (57 ) 

INREDA;"%" 

2  3  60  PRINT  TAB (12)  "ENGINE  SHAFT  HORSEPOWER 

REQUIRED"; TAB (57)  ESHP 

2  370  IF  AU=1  THEN  GOTO  2  3  80  ELSE  GOSUB  2  410: RETURN  2120 

2380  LCOPY:LPRINT  CHR$  (12):G0SUB  2410:RETURN  2000 

2390  • 

2400  • 

2410  IF  AP=1  THEN  LOCATE  25,79,0  ELSE  LOCATE  25 , 27 , 0 : PRINT 

"press  any  key  to  continue" 

2420  A$=INKEY$:IF  A$=""  THEN  2420 

243  0  RETURN 
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***  DATA  INPUT  *** 


10  *******************    CHAPTER  FIVE  ********************** 

20 

3  0  •  BLADE  SELECTION  OPTIMIZATION 

40 

50  ******************************************************* 

60 

70 

80 

90 

100  • 

110  CLS: LOCATE  3, 2 5,1: PRINT  "***  BLADE  SELECTION 

OPTIMIZATION  ***": LOCATE  10 , 15 , 1: INPUT  "NUMBER  OF  BLADES 

YOU  WISH  TO  CHECK  (MAX  5  AT  A  TIME) "; VI : CLS : LOCATE 

10, 15,1: PRINT  "DO  YOU  WANT  TABULAR  OUTPUT  OF  ALL  THE 

PARAMETERS  AT  EACH" 

12  0  LOCATE  11, 15,1: INPUT  "ANGLE  OF  TWIST  AS  IT  IS 

CALCULATED  (Y/N)";A$:IF  A$="Y"  THEN  GOTO  140  ELSE  IF 

A$="y"  GOTO  140  ELSE  IF  A$="N"  THEN  A0=1:G0T0  140  ELSE  IF 

A$="n"  THEN  A0=1:G0T0  140  ELSE 

130  GOTO  120 

140  CLS: LOCATE  10 , 30 , 0 : PRINT  "ENTER  BLADE  TWIST 

RANGE":LOCATE  12 , 32 , 0 : INPUT  "MINIMUM  (ie.  -7) " ;ALMN: LOCATE 

14, 3 2,0: INPUT  "MAXIMUM  (ie.  -15)";ALMX 

150  W=0: CLS: LOCATE  2, 25,1: PRINT  "***  BLADE  SELECTION 

OPTIMIZATION  ***": LOCATE  5, 1,0: PRINT  "BLADE        NAME 

CLA       STALLA       Cdo       Merit       CAMBERED 

(Y/N)":FOR  U=l  TO  80:LOCATE  6,U,0:PRINT  "e":NEXT  U:KK=7 

160  FOR  1=1  TO  VI 

170  LOCATE  KK, 2,0: PRINT  I : LOCATE  KK, 9,0: INPUT 

" " , A$ ( I )  : LOCATE  KK , 2  6 , 0 : INPUT  " " , CLALPHAl ( I )  : LOCATE 

KK,37,0:INPUT  "", STAL (I) : LOCATE  KK, 47 , 0 : INPUT 

" ",CD01( I) : LOCATE  KK, 56 ,0: INPUT  "", CM(I) : LOCATE 

KK, 72,0: INPUT  "",CAM$(I) :KK=KK+1 

180  FOR  U=l  TO  80:LOCATE  KK,U,0:PRINT  "-":NEXT  U:KK=KK+1 

190  LOCATE  2 3, 2 5,1: INPUT  "ANY  CHANGES  FOR  THIS  LINE 

(Y/N)";A$:IF  A$="Y"  THEN  GOSUB  210:GOSUB  220:GOTO  170  ELSE 

IF  A$="y"  THEN  GOSUB  210:GOSUB  220:GOTO  170  ELSE  IF  A$="N" 

OR  A$="n"  THEN  GOSUB  210: NEXT  I 

200  GOTO  230 

210  LOCATE  2 3, 2 5,0: PRINT  " 

" : RETURN 

22  0  KK=KK- 2 : LOCATE  KK, 1,0: PRINT  " 

" : RETURN 

230  LOCATE  2 3, 1,0: PRINT  "~W=COMP/" : GOTO  250 

240  ' 

250  MM=M:BB=B:B=TIPLOSS:FOR  Z=l  TO  V1:W=0 

260 

CLALPHA1=CLALPHA1(Z) : STAL=STAL(Z) : AM=STAL*PI/18  0 : CD01=CD01 

( Z ) : CM=CM ( Z ) : CAM$=CAM$ ( Z ) 

270  • 
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280  LLL=LL+1:F0R  1=1  TO  2 : FOR  J=l  TO  LLL: POFA(I , J) = 

POF(I,J) :PPFA(I,J)=PPF(I,J) :PTFA(I,J)=PTF(I,J) :PITRFA(I,J) 

=PITRF(I,J) :POTRFA(I,J)=POTRF(I,J) : PTTRFA (I , J) =PTTRF (I , J) : 

NEXT  J, I 

29  0  RHO(l)=RHO:DA=PI*R^2:VT=OMEGA*R:TRA=PI*TR^2:LLL=LL+ 

1:F0R  U=I  TO  2:L=LL 

300  VF=1.687778*0(L) :MU2=VF/ (OMEGA*R) :VITR=SQR( (-(VF^2)/2) 

+SQR( ( ( (VF^2)/2)^2)+( (PTF (U, L) *550) ^2 ) / ( (2*TRA*RH0 (U) *TL*0 

MEGA) ^2) ) ) :PITRF(U,L)=( ( (PTF (U, L) *550) / (TL*OMEGA) )*VITR)/( 

550*TB(U) ) 

310  P0TRF(U,L)=SIGMAT*CD01*RH0(U)*TRA*( (OMEGAT*TR) ^3) * ( 1+ 

(4.3*(MU2^2) ) )/4400:PTTRF(U,L)=PITRF(U,L)+POTRF(U,L) 

320  NEXT  U 

330  FOR  1=1  TO  2:PTTRF(I,1)=PTTR(I) :NEXT  I 

340  ' 

350  FOR  EE=ALMN  TO  ALMX  STEP  -1 : THT=EE*PI/180 : W=ABS (EE) 

360  M(l)=1116.89:FOR  U=l  TO  2 : L=LL:VF=0 (L) *1 . 687778 

370  CT=GW(N)/(RHO(U) *DA*VT^2) 

380  B=1-(SQR(2*CT)/BB) 

3  90  MU3=VF/VT:T1=.5*( (B^2 ) +. 5* (MU3^2) ) :T2=( (B^3 ) /3) + ( . 5* 
(MU3^2) *B) :T3=( (B^2)/4) *(B^2+MU3^2) :T4=(.5*MU3) *( (B^2)+( (M 

U3^2)/4) ) :B1=(B^2-.5*(MU3^2) ) :A11=4*( (MU3* (B^2 ) /2 ) - (MU3^3 ) 

/8)/( (B^2) *B1) :A12=(8*MU3*B)/(3*B1) : A13= (2*MU3* (B^2) )/Bl:A 

14=(B^2+(3*(KU3^2) )/2)/Bl 

400  A14=(B^2+(3*MU3^2)/2)/Bl:PPF(U,L)=RHO(U) *VF^3*EFPA/2 : 

IF  O(L)<=40  THEN  LAM=SQR(CT/2 ) : PPF (U, L) =PPF (U, L) /550  ELSE 

LAM=-( ( (PPF(U,L) )/GW(N) ) + (GW (N) / (2*RH0 (U) *DA*VF) ) )/VT: 

PPF (U, L) =PPF (U, L) /550 

410  F (1) = (2*CT/ (SIGMA*CLALPHA1) ) -LAM*T1-THT*T3 : F (2 ) =- 

LAM*A11-THT*A13 : K ( 1 , 1) =T2 : K ( 1 , 2 ) =T4 : K ( 2 , 1 ) =A12 : 

K(2,2)=A14:H=2 

420  • 

43  0  '      SIMULTANEOUS  EQUATION  SOLVER  USING  MATRIX 

440  •      DECOMPOSTION  WITH  FORWARD  SUBSTITUTION  IN  LOWER 

450  '      TRIANGULAR  SYSTEM  AND  BACK-SUBSTITUTION  IN  UPPER 

4  60  •      TRIANGULAR  SYSTEM 
470  ' 

480  • 

490  FOR  D=2  TO  H:FOR  1=1  TO  D-1:F0R  M=l  TO  I-1:K(D,I)= 

K(D,I)-(K(D,M) *K(M,I) ) :K(I,D)=K(I,D)-(K(I,M) *K(M,D) ) : NEXT 

M:K(D,I)=K(D,I)/K(I,I) :NEXT  I : FOR  J=l  TO  D-1:K(D,D)= 

K(D,D)-(K(D,J) *K(J,D) ) :NEXT  J,D 

500  FOR  1=2  TO  H:E=0:FOR  J=l  TO  I-l :G=K(I , J) *F ( J) : E=E+G: 

NEXT  J:F(I)=F(I)-E:NEXT  I 

510  F(H)=F(H)/K(H,H) :FOR  I=H-1  TO  1  STEP  -1:P=0:FOR  J=I+1 

TO  H:Q=F(J) *K(I,J) :P=P+Q:NEXT  J: F (I) = (F (I) -P) /K(I , I) :NEXT 

I:TH0=F(1) :TH2=F(2) :FOR  1=1  TO  2:F(I)=0:FOR  J=l  TO 

2:K(I,J)=0:NEXT  J, I 

520  AL9  0(U,L)=(TH0+TH2+THT+(LAM/(1+MU3) ) ) *180/PI : AL270 

(U,L)=(TH0-TH2+THT+(LAM/(1+MU3) ) ) *180/PI 

530  ' 
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540  ACK=AL270(U,L)-STAL(Z) :IF  ACK<0  THEN  PS(U,L)=0  ELSE 

PS(U,L)=(ACK/4) *POF(U,L) 

550  • 

560  ' 

570  MTIP=VT/M(U) :MU3=VF/VT:M9  0 (U, L) =MTIP* (1+MU3 ) : IF 

CAM$="N"  OR  CAM$="n"  THEN  MCRIT (U, L) =CM- (2 . 3*ABS (AL9  0 

(U,L) ) *PI/180)  ELSE  MCRIT(U,L)=CM-(2.3*AL90(U,L) *PI/180) 

580  MD=M90(U,L) -MCRIT(U,L)-.06:IF  MD<0  THEN  PM(U,L)=0  ELSE 

PM(U,L)=( ( (.012*MD)+.1*(MD^3) ) *SIGMA*RHO (U) *DA*VT^3 ) /550 

590  ' 

600  ' 

610 

PTT (U, L) =POF (U, L) +PINF (U, L) +PPF (U, L) +PS (U, L) +PM(U, L) +PTTRF 

(U,L) 

620  • 

630  ' 

640  NEXT  U:IF  A0=1  THEN  GOTO  660  ELSE  GOSUB  990 

650  GOSUB  1070 

660  ' 

67  0  IF  PTT(1,LL)>PTT(2,LL)  THEN  RSHP=PTT (1, LL)  ELSE 

RSHP=PTT(2,LL) 

680  I=ABS(EE) :RSHP(Z,I)=RSHP 

690  NEXT  EE 

700  NEXT  Z 

710  ' 

720  • 

730  • 

740  IF  A0=1  THEN  FOR  1=1  TO  3: SOUND  700, 9: SOUND  500, 9: NEXT 

I 

750  CLS: LOCATE  2, 2 2,0: PRINT  "BLADE  MAXIMUM  VELOCITY  POWER 

REQUIREMENTS": LOCATE  4, 4 0,0: PRINT  "BLADES" : LOCATE 

5, 16,0: PRINT  "1  2  3  4 

5": LOCATE  6, 1,0: PRINT  "TWIST" : LOCATE  6, 12,0: PRINT  A$(l) 

760  LOCATE  6,26,0:PRINT  A$(2):L0CATE  6,40,1:PRINT 

A$ (3): LOCATE  6, 54,0: PRINT  A$ (4): LOCATE  6, 68,0: PRINT  A$(5) 

770  K=8:KK=12:FOR  EE=ALMN  TO  ALMX  STEP  -1: I=ABS (EE) : LOCATE 

K, 2,0: PRINT  EE:FOR  J=l  TO  VI : LOCATE  K,KK,0: PRINT 

RSHP(J,I) :KK=KK+14:NEXT  J: K=K+1 :KK=12 

780  NEXT  EE:IF  AP=1  THEN  AP=0 : LCOPY: LPRINT  CHR$  (12):G0T0 

820  ELSE  GOSUB  1170 

790  CLS: LOCATE  10 , 10 , 0 : INPUT  "DO  YOU  WANT  A  HARD  COPY  OF 

THIS  TABLE  (Y,N)";B$:IF  B$="Y"  THEN  AP=1:G0T0  810  ELSE  IF 

B$="y"  THEN  AP=1:G0T0  810  ELSE  IF  B$="N"  THEN  GOTO  820 

ELSE  IF  B$="n"  THEN  GOTO  820  ELSE 

800  LOCATE  25 , 27 , 0 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  790 

810  CLS: PRINT  "~W=PRINTER/" : GOSUB  117  0: GOTO  750 

820  CLS: LOCATE  10 , 10 , 0 : INPUT  "IS  THE  SELECTED  BLADE  THE 

SAME  AS  YOUR  ORIGINAL  SELECTION  (Y/N)";B$:IF  B$="Y"  THEN 

GOTO  950  ELSE  IF  B$="y"  GOTO  950  ELSE  IF  B$="N"  GOTO  840 

ELSE  IF  B$="n"  GOTO  840  ELSE 
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830  GOTO  820 

840  LOCATE  14 , 10 , 1: INPUT  "ENTER  Cdo  OF  THE  NEW 

BLADE" ;CDO: LOCATE  16 , 10 , 0 : PRINT  "THE  MAIN  AND  TAIL  ROTOR 

POWER  CALCULATIONS  HAVE  BEEN  MODIFIED" : LOCATE 

17,10;0:PRINT  "TO  REFLECT  THE  NEW  BLADE  SELECTION. 

CHAPTER  FOUR  SECTION  4.4" 

850  LOCATE  18 , 10 , 1 : PRINT  "THE  VERTICAL  STABILIZER  WILL 

NEED  TO  BE  CHECKED  DUE  TO  THE": LOCATE  19 , 10 , 0 : PRINT  "POWER 

ALTERATIONS.   THIS  CAN  BE  DONE  AT  ANY  TIME,  JUST 

ENSURE": LOCATE  20 , 10 , 0 : PRINT  "CHAPTER  5  DATA  IS  LOADED 

PRIOR  TO  SELECTING  CHAPTER  FOUR" 

860  GOSUB  1170: LOCATE  23 , 36 , 0 : PRINT  "COMPUTING" 

870  • 

88  0  RHO(l)=RHO:DA=PI*R^2:VT=OMEGA*R:TRA=PI*TR^2:LLL=LL+l 

:FOR  U=I  TO  2 : FOR  L=l  TO  LLL 

890  VF=0(L) *1.687778:MU3=VF/VT:POF(U,L)=SIGMA*CD01*RHO(U) 

*DA*VT^3* (1+4 . 3* (MU3^2 ) ) : PTF (U, L) =PINF (U, L) +POF (U, L) +PPF (U 

,L) 

9  00  TTR=( ( (PT*550) /OMEGA) /TL) : CTTR=TTR/ (PI* (TR^4 ) *RHO (U) * 

(OMEGAT^l.5) ) :TRB=l-( (SQR(2*CTTR) /BT) ) :PITR(U) 

=( ( (TTR^1.5)/SQR(2*PI*(TR^2) *RHO(U) ) ) /TRB) /550 : SIGMAT= (BT* 

TRC) / (PI*TR) : POTR(U) = (SIGMAT*CD01*RH0 (U) *PI* (TR^5) *OMEGAT^ 

3 ) /44  00 : PTTR (U) =PITR (U) +POTR (U) 

910  VF=1.687778*0(L) :MU2=VF/ (OMEGA*R) :VITR=SQR( (-(VF^2)/2) 

+SQR( ( ( (VF^2)/2)^2)+( (PTF(U,L) *550)^2)/( (2*TRA*RH0 (U) *TL*0 

MEGA) ^2) ) ) :PITRF(U,L)=( ( (PTF(U,L) *550) / (TL*OMEGA) ) *VITR)/5 

50:POTRF(U,L)=SIGMAT*CD01*RHO(U) *TRA* ( (OMEGAT*TR) ^3) *(l+(4 

.3*(MU2^2) ) )/4400 

920  PTTRF(U,L)=PITRF(U,L)+POTRF(U,L) : PTTRF (U, 1) =PTTR (U) 

930  NEXT  L,U:GOTO  960 

940  • 

950  LLL=LL+1:F0R  1=1  TO  2 : FOR  J=l  TO 

LLL:POF(I,J)=POFA(I,J) : PPF (I , J) =PPFA(I, J) : PTF (I , J) =PTFA(I , 

J) :PITRF(I,J)=PITRFA(I,J) : POTRF (I , J) =POTRFA(I , J) :PTTRF(I,J 

)=PTTRFA(I,J) :NEXT  J, I 

960  CLS: LOCATE  10 , 10 , 1 : PRINT  "NOW  COMPLETE  CHAPTER  FIVE 

WITH  THESE  BLADE  SELECTION  RESULTS" : GOSUB  1170 

970  M=MM:B=BB:FOR  1=1  TO  2 : FOR  J=l  TO 

LLL:PS(I,J)=0:PM(I,J)=0:PTT(I,J)=0:M90(I,J)=0:MCRIT(I,J)=0 

:NEXT  J, I 

98  0  CHAIN  "CHAP5",,ALL 

990  FOR  KK=1  TO  2 : GOSUB  1000: NEXT  KK: RETURN  650 

1000  CLS: LOCATE  2, 15,1: PRINT  "COMPRESSIBILITY  AND  STALL 

EFFECTS  ON  POWER  REQUIRED" : LOCATE  3,33,1: PRINT  "BLADE 

TWIST  =";EE:IF  KK=1  THEN  LOCATE  4, 32,1: PRINT  "STANDARD  SEA 

LEVEL": LOCATE  5, 2  0,1: PRINT  "ALTITUDE  =  0  FT 

TEMPERATURE  =  59  DEG.  F"  ELSE 

1010  IF  KK=2  THEN  LOCATE  4, 30,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 3  5,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F" 
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102  0  LOCATE  7,7,1: PRINT  "AIRSPEED     ALPHA       ALPHA 
M90       Merit       Ps         Pm": LOCATE  8,9,1: PRINT 
"(kts)       (90)       (270)  (shp) 
(shp) " 

103  0  A$="###.#":B$="##.###":C$="#.####":K=10:L=LL: LOCATE 
K,9,1:PRINT  USING  A$ ;0 (L) : LOCATE  K,18,1:PRINT  USING 
B$;AL9  0(KK,L) : LOCATE  K,29,1:PRINT  USING 

B$;AL27  0(KK,L) : LOCATE  K,39,1:PRINT  USING 

C$;M90(KK,L) : LOCATE  K,49,1:PRINT  USING  C$ ;MCRIT (KK, L) 

1040  D$="####.#":LOCATE  K,59,1:PRINT  USING 

D$ ; PS (KK, L) : LOCATE  K,69,1:PRINT  USING 

D$;PM(KK,L) :K=K+1:G0SUB  117  0: RETURN 

1050  ' 

1060  ' 

107  0  FOR  KK=1  TO  2:G0SUB  108  0: NEXT  KK: LOCATE  2  3, 1,0: PRINT 
" ~W=COMP/ " : RETURN  660 

108  0  CLS: LOCATE  2, 3  0,1: PRINT  "TOTAL  POWER  REQUIRED" : LOCATE 
3,28,1: PRINT  "(With  High  Speed  Effects)": IF  KK=1  THEN 
LOCATE  4, 3  2,1: PRINT  "STANDARD  SEA  LEVEL" : LOCATE 

5, 2 0,1: PRINT  "ALTITUDE  =  0  FT      TEMPERATURE  =  59  DEG.  F" 

1090  LOCATE  6, 33,1: PRINT  "BLADE  TWIST  =";EE  ELSE 

1100  IF  KK=2  THEN  LOCATE  4, 3  0,1: PRINT  "SPECIFICATION 

ALTITUDE": LOCATE  5, 18,1: PRINT  "ALTITUDE  ="; ALT: LOCATE 

5, 35,1: PRINT  "FT      TEMPERATURE  ="; TEMP: LOCATE 

5, 60,1: PRINT  "DEG.  F": LOCATE  6, 3  3,1: PRINT  "BLADE  TWIST 

=  ";EE 

1110  LOCATE  7,5,1: PRINT  "AIRSPEED       Pi        Po 

Pp       Ps       Pm       Ptr       PT": LOCATE 

8, 7,1: PRINT  "(kts)       (shp)     (shp)     (shp)     (shp) 

(shp)     (shp)      (shp)" 

1120  A$="###.#":B$="####.#":K=10:L=LL:LOCATE  K,7,1:PRINT 

USING  A$;0(L) : LOCATE  K,17,1:PRINT  USING 

B$;PINF(KK,L) : LOCATE  K,26,1:PRINT  USING 

B$;POF(KK,L) : LOCATE  K,35,1:PRINT  USING  B$ ;PPF (KK, L) : LOCATE 

K, 44,1: PRINT  USING  B$;PS(KK,L) 

1130  PTTRF(KK,1)=PTTR(KK) : LOCATE  K,53,1:PRINT  USING 

B$;PM(KK,L) : LOCATE  K,62,1:PRINT  USING 

B$;PTTRF(KK,L) : LOCATE  K,72,1:PRINT  USING 

B$;PTT(KK,L) :K=K+1:G0SUB  117  0: RETURN 

1140  ' 

1150  • 

1160  ' 

1170  LOCATE  25, 27 , 0: PRINT  "press  any  key  to  continue" 

1180  A$=INKEY$:IF  A$=""  THEN  1180 

119  0  RETURN 


121 


H.   CHAPTER  SIX 


5  KEY (5)  OFF 

10 

20 

30 

40 

50 

60 


****************************************************** 

ENGINE  SELECTION 
****************************************************** 

***   CHAPTER  SIX  MAIN  PROGRAM   *** 


***  STORE  DATA  ON  FILE  DISK  *** 


70 

80 

90 

100  PRINT  "~C=ALL/": PRINT  "~L=CH6/" 

110  KEY(9)  ON:ON  KEY(9)  GOSUB  120 

12  0  COLOR  1,1,1:CLS: LOCATE  2  3, 1,0: PRINT 
" ~W=C6MAIN/ " : INPUT ; " " , X 

13  0  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  490  ELSE  IF  X=2  THEN 
GOSUB  590  ELSE  IF  X=3  THEN  GOSUB  800  ELSE  IF  X=4  THEN 
GOSUB  960  ELSE  IF  X=5  THEN  GOSUB  1150  ELSE  IF  X=6  THEN 
GOSUB  1250  ELSE  IF  X=7  THEN  GOSUB  490  ELSE 
140  IF  X=8  THEN  GOSUB  1480  ELSE  IF  X=9  THEN  GOSUB  1400 
ELSE  IF  X=10  THEN  GOSUB  210  ELSE  IF  X=ll  THEN  LOCATE 
2  3, 1,0:CLS: PRINT  "~W=LOAD/" : CHAIN  "HD1",,ALL 
150  LOCATE  2 3, 54,1: PRINT  "  " : GOTO  13  0 
160 
170 
180 
190 
200 

210  CLS: LOCATE  2  3, 1,0: PRINT  "~W=DISK/" : GOSUB  1800: LOCATE 
25, 27,1: PRINT  "  ": LOCATE 

2  3, 1,0:  PRINT  "-'W=SAVE/" 

2  2  0  A ( 1 ) =SGW : A ( 2 ) =GW1 : A ( 3 ) =WE : A ( 4 ) =VTIPMAX :A(5)=R:A(6)= 

OMEGA : A ( 7 ) =CT : A ( 8 ) =S IGMA :A(9)=B:A(10)=C:A(11) =AR : A ( 12 ) =CL : 

A(13)=CLALPHA:A(14)=CDO:A(15)=DL:A(16)=MBL:A(17)=MU:A(18)= 

MAXFVEL : A ( 1 9 ) =TIPLOSS : A ( 2  0 ) =PIN : A ( 2 1 ) =P0 : A ( 2  2 ) =PT : A ( 2  3 ) =HP 

:A(24)=PERINDP 

230  V=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V=V+1: Q=J+24 : A(V) =W(Q- 

24,I):NEXT  J,I:FOR  1=1  TO  3 : A(I+69) =W2A (I) : A (1+72) =W2B (I) : 

A(I+75)=W6A(I) :A(I+78)=W6B(I) : A (1+81) =W6C (I) : NEXT 

I:A(85)=N:A(86)=WE(N) :A(87)=GW(N) :A(88)=DL(N- 

1) :A(89)=FM(N-1) : A (90) =FL: A(91) =IRLG 

240  A(92)=NW 

250  A(93)=PERDIFW:A(94)=PERDIFP:A(95)=Y:A(96)=FUEL:A(97)= 

PEOPLE:A(98)=UL:A(99)=SPECIAL:A(100)=ENGINE:A(101)=ZZ:A(10 

2)=AB:A(10  3)=GR:A(104)=RH:A(105)=H:A(10  6)=D:A(107)=PINI:A( 

108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) : A(112 ) =MM: A (11 

3)=M(2) :A(114)=CRUISEV 

2  60  A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118)=MAXF2:A(119) 

=MAXCRU1 : A ( 12  0 ) =ALT : A ( 12 1 ) =TEMP : A ( 12  2 ) =LL : A ( 12  3 ) =TR : A ( 12  4 ) 

=TRPM : A ( 12  5 ) =OMEGAT : A ( 12  6 ) =TCDO : A ( 127 ) =BT : A ( 12  8 ) =TAR : A ( 12  9 
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) =TRC : A ( 13  0 ) =TTR : A ( 13 1 ) =CTTR : A ( 13  2 ) =TRB : A ( 13  3 ) =SIGMAT : A ( 13 
4)=V:A(135)=SPAN 

270  A(13  6)=S:A(137)=SWP:A(138)=SWEEP:A(139)=LAVS:A(140)= 
VSAR:A(141)=BETA2:A(142)=T:A(14  3)=T2:A(144)=T3:A(145)=CLAT 
R:A(146)=ALTR:A(147)=ALTRDEG:A(148)=TL:A(149)=BLTW:A(150)= 
CM : A ( 15 1 ) =THT : A ( 15  2 ) =AM : A ( 15  3 ) =AMAX : A ( 154 ) =PINIGE : A ( 155 ) =P 
TTI:A(156)=RSHP 

280  A ( 157 ) =STYPE : A ( 158 ) =ICESHD : A ( 159 ) =STRTIN : A ( 1 6 0 ) =INLET : 
A(161)=BARR:A(162)=PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165)= 
INRED : A ( 16  6 ) =EEDS : A ( 167 ) =RSHP1 : A ( 168 ) =RSHP2 : A ( 169 ) =RSHP3 : A 
(170)=RSHP1A:A(171)=RSHP2A:A(172)=RSHP3A:A(173)=ESHP:A(174 
)=LOSS:A(175)=ENG 

29  0  A ( 17  6 ) =EN : A ( 17  7 ) =TRPWR : A ( 17  8 ) =TRWT : A ( 17  9 ) =NGW : A ( 1 8  0 )  = 
NPT:A(181)=NDL:A(182)=NFM:A(183)=NPERINDP:A(184)=NPERDIFP: 
A(185)=NPERDIFW:G=186 

300  LL=LL+1:F0R  1=1  TO  LL: A(G) =0 (I) :G=G+1 :NEXT  I:G=G+1+LL: 
G1=G+1+2*LL:G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2*LL 
310  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G) =PINF (I , J) : A (Gl) = 
POF(I,J) :A(G2)=PPF(I,J) : A(G3 ) =PTF (I , J) : A(G4) =TM(I , J) :G=G+1 
:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J, I 
320  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : A (G4 ) =PITR(I) : 
A(G5)=P0TR(I) :A(G6)=PTTR(I) : A(G7) =CLTR(I) : G4=G4+1 : G5=G5+1: 
G6=G6+l:G7=G7+l:NEXT  I :G8=G7+l+2* (LL-1) : G9=G8+l+2* (LL-1) 
330  FOR  1=1  TO  2:F0R  J=2  TO  LL: A(G7) =PITRF (I , J) : A(G8) = 
POTRF(I,J) :A(G9)=PTTRF(I,J) : G7=G7+1 : G8=G8+1 : G9=G9+1 : NEXT 
J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 
2*LL:G14=G13+1+2*LL 

340  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G9) =TTM(I , J) : A(GIO) = 
TRT(I,J) :A(G11)=L(I,J) :A(G12)=VERSTAB(I,J) : A(G13 ) =PTTRVSF ( 
I, J) :A(G14)=PITRFI(I,J) :G9=G9+1:G10=G10+1:G11=G11+1:G12=G1 
2+l:G13=G13+l:G14=G14+l:NEXT  J, I 

350  G15=G14+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18=G17+1+ 
2*LL:  G19=G18+1+2*LL: G2  0=G19+1+2*LL: G21=G2 0+1+2 *LL 
360  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G15) =AL90 (I , J) : A(G16) = 
AL270(I,J) :A(G17)=M90(I,J) : A(G18) =MCRIT (I , J) : A(G19) =PS (I , J 
) :A(G20)=PM(I,J) :A(G21)=PTT(I,J) : G15=G15+1 : G16=G16+1: G17=G 
17+1 : G18=G18+1:G19=G19+1:G2  0=G2 0+1 :G21=G2 1+1: NEXT  J, I 
370  G22=G21+1:G2  3=G22+1+ENG:G2  4=G2  3+1+ENG:G2  5=G2  4+1+ENG: 
G2  6=G2  5+1+ENG:G2  7=G2  6+1+ENG:G2  8=G2  7+1+ENG:G2  9=G2  8+1+ENG:G3 
0=G29+1+ENG:G31=G3  0+1+ENG:G3  2=G31+1+ENG:G3  3=G3  2+1+ENG:G3  4= 
G3  3+1+ENG:G3  5=G3  4+1+ENG:G3  6=G3  5+1+ENG:G3  7=G3  6+1+ENG:G3  8=G3 
7+1+ENG 

38  0  G3  9=G38+1+ENG:G4  0=G3  9+1+ENG:G41=G4  0+1+ENG 
390  FOR  1=1  TO  ENG:A(G22)=DW(I) :A(G23)=SHP(I) :A(G24)= 
SFC(I) :A(G25)=IC(I) : A(G26) =0C (I) : A(G27) =PMA(I) :A(G28)=MTBM 
A(I) :A(G29)=MDT(I) : A (G30) =MTBF (I) : A(G31) =MTBR(I) :A(G32)=RC 
(I) :A(G33)=SV(I) : A(G34 ) =AVAIL(I) : A(G35) =RELY (I) :A(G36)=MAI 
NT  (I) 

400  A(G37)=LC(I) : A (G38) =EWT (I) : A(G39) =Y0 (I) : A(G40) =YM(I) : 
A(G41)=NRPL(I) :G2  2=G2  2+l:G2  3=G2  3+l:G24=G2  4+l:G2  5=G25+l:G2  6 
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=G2  6+1 : G27=G2  7  +  1 : G2  8=G2  8  +  1 : G2  9=G2  9+1 : G3  0=G3  0+1 : G3 1=G3 1+1 : G 

32=G32+1:G3  3=G3  3+1:G34=G3  4+1:G3  5=G3  5+1:G3  6=G3  6+1 

410  G3 7=G3 7+1 : G3 8=G3 8+1 :G3  9=G3 9+1 :G4  0=G4 0+1 :G41=G41+1: NEXT 

I 

420  LL(4)=187+(46*LL)+(50*ENG) :LL=LL-1 

430  Z=6:0PEN  "B:DATA1"  FOR  OUTPUT  AS  #1: PRINT  #1,  Z:FOR 

1=1  TO  10: PRINT  #1,  LL(I) :NEXT  I: CLOSE  #1 

440  OPEN  "BrDATAS"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  LL(4):PRINT 

#1,  A(I):NEXT  I : CLOSE  #1:RETURN  110 

450  • 

460  ' 

470  '  ***  SECTION  6.1  *** 

480  ' 

490  • 

500  ' 

510  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  6.1  ***": LOCATE 

7, 3  0,1: PRINT  "-NUMBER  OF  ENGINES-" : LOCATE  10 , 22 , 1 : INPUT 

"ENTER  NUMBER  OF  ENGINES  REQUIRED" /ENGINE : LOCATE 

12, 2 2,1: PRINT  "NUMBER  OF  ENGINES  =" /ENGINE 

520  LOCATE  23 , 30 , 1 : INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="Y" 

THEN  GOTO  510  ELSE  IF  A$="y"  GOTO  510  ELSE  IF  A$="N"  GOTO 

540  ELSE  IF  A$="n"  GOTO  540  ELSE 

53  0  LOCATE  24 , 27 , 1 : PRINT  "you  must  enter  (y/n)  try 
again": GOTO  52  0 

54  0  IF  X=7  THEN  GOTO  560  ELSE  RETURN  110 
550  ' 

560  ' 

570  '  ***  SECTION  6.2  *** 

580  ' 

590  ' 

600  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  6.2  ***": LOCATE 

7,31,1:PRINT  "-TYPE  OF  ENGINES-" : LOCATE  10 , 13 , 1 : INPUT 

"ENTER  NUMBER  OF  ENGINES  COMPETING  FOR  SELECTION" ;ENG 

610  CLS: LOCATE  2, 27,0: PRINT  "ENGINE  SELECTION 

PARAMETERS": LOCATE  4 , 5 , 0 : PRINT  "ENGINES" : LOCATE 

6,5,0:PRINT  "DRY  WEIGHT" : PRINT  TAB(5)  "SHP  (ssl) 

military": PRINT  TAB (5)  "SFC  (ssl)  military" : PRINT  TAB (5) 

"INITIAL  COST  ($K) " 

62  0  LOCATE  11, 5,0: PRINT  "OPERATING  COST/HR/" : PRINT  TAB (5) 
"ENGINE  ($)": LOCATE  14,5,0: PRINT  "PREVENTIVE  MAINT/" 

63  0  PRINT  TAB (5)  "HR/ENGINE  ($)": LOCATE  17 , 5 , 0 : PRINT 
"MTBMA  (hrs)": PRINT  TAB (5)  "MDT  (hrs)": PRINT  TAB (5)  "MTBF 
(hrs)": PRINT  TAB (5)  "MTBR  (hrs)" 

640  K=3  0:KK=2  8:FOR  1=1  TO  ENG:IF  1=1  THEN  A$="A"  ELSE  IF 

1=2  THEN  A$="B":ELSE  IF  1=3  THEN  A$="C"  ELSE  IF  1=4  THEN 

A$="D"  ELSE  IF  1=5  THEN  A$="E" 

650  LOCATE  4,K,0:PRINT  A$ : LOCATE 

6,KK,0:INPUT7"",DW(I) : LOCATE  7 , KK, 0 : INPUT; "" , SHP (I) : LOCATE 

8,KK,0:INPUT;"",SFC(I) : LOCATE  9 ,KK, 0 : INPUT; "" , IC (I) : LOCATE 

1 1 , KK , 0 : INPUT ; " " , OC ( I ) : LOCATE 

14,KK,1:INPUT;"",PMA(I) : LOCATE  17 ,KK, 0 : INPUT; "" ,MTBMA(I) 
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660  LOCATE  18 , KK, 0 : INPUT; "" ,MDT (I) : LOCATE 
19, KK,0: INPUT;"",  MTBF(I) : LOCATE 
20,KK,0:INPUT;"",MTBR(I) : K=K+10 : KK=KK+10 :NEXT  I 


(Y/N) ";A$:IF  A$="Y" 
ELSE  IF  A$="N"  GOTO 


INPUT  "ANY  CHANGES 

IF  A$="y"  GOTO  610 

GOTO  69  0  ELSE 

PRINT  "you  must  enter  (y/n)  try 


670  LOCATE  23,33,0 

THEN  GOTO  610  ELSE 

690  ELSE  IF  A$="n" 

680  LOCATE  25,27,0 

again": GOTO  670 

690  • 

700  ' 

710  ' 

720  ' 

73  0  CLS: LOCATE  10 , 10 , 0 : INPUT  "ENTER  SPECIFICATION  AVERAGE 

FLIGHT  HOURS  PER  YEAR  ";AFL: LOCATE  12 , 10 , 0 : INPUT  "ENTER 

SPECIFICATION  AVERAGE  AIRFRAME  SERVICE  LIFE  IN 

YEARS" ;SL: LOCATE  14 , 10 , 0 : INPUT  "ENTER  AVERAGE  FLIGHT  HOUR 

PER  FLIGHT" ;TAV 

INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="Y" 

IF  A$="y"  GOTO  730  ELSE  IF  A$="N"  GOTO 

GOTO  760  ELSE 

PRINT  "you  must  enter  (y/n)  try 


74  0  LOCATE  2  3,33,0 

THEN  GOTO  73  0  ELSE 

760  ELSE  IF  A$="n" 

750  LOCATE  25,27,0 

again": GOTO  740 

7  60  FOR  1=1  TO  ENG:YM(I)=PMA(I)*AFL/1000:YO(I)= 

OC(I) *AFL/1000:NRPL1=AFL*SL/MTBR(I) :NRPL(I) =ENGINE* (CINT(N 

RPLl) ) :LC(I)=ENGINE*(RD(I)+IC(I)+(SL*(YO(I)+YM(I) ) )+(NRPL( 

I)*( (1.35*IC(I) )-(.8*IC(I) ) ) ) ) :AVAIL(I)=MTBMA(I)/(MTBMA(I) 

+MDT ( I ) ) 

770  MAINT(I)=(MDT(I)/(MTBMA(I)+MDT(I) ) ) *TAV:RELY (I) =EXP (- 


TAV/MTBF(I) ) :RC(I)=1.35*IC(I) : SV(I) =. 8*IC (I) 

THEN  GOTO  790  ELSE  RETURN  110 

780  • 
I 


NEXT  I: IF  X=7 


790 
800 
810 
820 
830 


***  SECTION  6.3  *** 


7,29, 


"***  SECTION 
WEIGHT-" 


6.3  ***": LOCATE 


IF 
AND 


CLS: LOCATE  5, 3  0,0: PRINT 
0: PRINT  "-INSTALLATION 
840  FOR  1=1  TO  ENG:IF  DW(I)<=300  THEN  GOTO  850  ELSE 
DW(I)>300  AND  DW(I)<=700  GOTO  860  ELSE  IF  DW(I)>700 
DW(I)<=1100  GOTO  870  ELSE  IF  DW(I)>1100  GOTO  880 
850  EWT(I)=DW(I)*1.29:GOTO  890 

EWT(I)=DW(I)*1.27:GOTO  890 

EWT(I)=DW(I)*1.24:GOTO  890 

EWT(I)=DW(I) *1.2:G0T0  890 

NEXT  I 

LOCATE  9, 25,0: PRINT  "ENGINES  INSTALLATION 

WEIGHT" 

910  K1=11:F0R  1=1  TO  ENG:IF  1=1  THEN  A$="A"  ELSE  IF  1=2 
THEN  A$="B":ELSE  IF  1=3  THEN  A$="C"  ELSE  IF  1=4  THEN 
A$="D"  ELSE  IF  1=5  THEN  A$="E" 


860 
870 
880 
890 
900 
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920  LOCATE  Kl , 28 , 0 : PRINT  A$ : LOCATE  Kl, 48 , 0 : PRINT 

EWT(I) :K1=K1+2:NEXT  I : IF  AV=1  THEN  GOTO  93  0  ELSE  GOSUB 

1800: IF  X=7  THEN  GOTO  960  ELSE  RETURN  110 

93  0  LCOPY: GOSUB  1800: RETURN 

940  ' 

950  • 

960  •  ***  SECTION  6.4  *** 

970  ' 

980  ' 

990  CLS: LOCATE  3, 27,0: PRINT  "ENGINE  SELECTION 

CRITERIA" : LOCATE  5, 36,0: PRINT  " ENGINE  

": LOCATE  6, 37,0: PRINT  "A         B         C 

D  E": PRINT  "": PRINT  "POWERPLANT  WEIGHT: ": PRINT 

"LIFE-CYCLE  COST  (1000$):" 

1000  PRINT  TAB(5)  "ENGINE  LIFE  (hrs) :": PRINT  TAB(5)  "No. 

OF  REPLACEMENTS :": PRINT  TAB (5)  "R/D  COSTS :": PRINT  TAB (5) 

"INITIAL  COSTS: ":PRINT  TAB (5)  "ANNUAL  MAINT.  COST:": PRINT 

TAB (5)  "ANNUAL  OPERATING  COST:": PRINT  TAB (5)  "REPLACEMENT 

COST:" 

1010  PRINT  TAB (5)  "SALVAGE  VALUE :": PRINT  "AVAILABILITY 

(per  engine) :" :PRINT  "RELIABILITY  (per  engine) :": PRINT 

"MAINTAINABILITY  (per  engine) :": PRINT  "PERFORMANCE 

(military  SHP) : " : C$="# . ####" 

1020  Kl=35:B$="#####":FOR  1=1  TO  ENG:LOCATE  8,K1,0:PRINT 

USING  B$ ;EWT (I) : LOCATE  9,K1,0:PRINT  USING  B$ ;LC (I) : LOCATE 

10,K1,0:PRINT  USING  B$ ;MTBR (I) : LOCATE  11 , Kl , 0 : PRINT  USING 

B$;NRPL(I) : LOCATE  12 , Kl , 0 : PRINT  USING  B$ ;RD (I) : LOCATE 

13,K1,0:PRINT  USING  B$;IC(I) 

1030  LOCATE  14 , Kl , 0 : PRINT  USING  B$ ;YM (I) : LOCATE 

15, K1,0: PRINT  USING  B$ ;Y0 (I) : LOCATE  16 , Kl, 0 : PRINT  USING 

B$ ;RC (I) : LOCATE  17 , Kl, 0 : PRINT  USING  B$ ;SV( I) : LOCATE 

18,K1,0:PRINT  USING  C$ ; AVAIL (I) : LOCATE  19 , Kl, 0 : PRINT  USING 

C$;RELY(I) 

1040  LOCATE  20 , Kl, 0 : PRINT  USING  C$ ; MAINT (I) : LOCATE 

21,K1,0:PRINT  USING  B$ ;SHP (I) : Kl=Kl+9 :NEXT  I:IF  AV=1  THEN 

GOTO  1050  ELSE  IF  X=8  THEN  GOSUB  1800: RETURN  1480  ELSE 

GOSUB  1800:GOTO  1060 

1050  LCOPY:LPRINT  CHR$  (12):RETURN  1400 

1060  IF  ENG=1  THEN  EN=1:G0T0  1100  ELSE  CLS : LOCATE 

10, 10,0: INPUT  "NOW  ENTER  THE  LETTER  OF  THE  SELECTED  ENGINE 

(ie.  A,B,C)";D$ 

1070  IF  D$="A"  THEN  EN=1  ELSE  IF  D$="a"  THEN  EN=1  ELSE  IF 

D$="B"  THEN  EN=2  ELSE  IF  D$="b"  THEN  EN=2  ELSE  IF  D$="C" 

THEN  EN=3  ELSE  IF  D$="c"  EN=3  ELSE  IF  D$="D"  THEN  EN=4 

ELSE  IF  D$="d"  THEN  EN=4  ELSE  IF  D$="E"  THEN  EN=5  ELSE  IF 

D$="e"  THEN  EN=5 

1080  LOCATE  23 , 33 , 0 : INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="Y" 

THEN  GOTO  1060  ELSE  IF  A$="y"  GOTO  1060  ELSE  IF  A$="N" 

GOTO  1100  ELSE  IF  A$="n"  GOTO  1100  ELSE 

1090  LOCATE  25 , 27 , 0 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  1060 
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***  SECTION  6.5  *** 


***  SECTION  6.6  *** 


1100  IF  X=7  THEN  GOTO  1150  ELSE  RETURN  110 

1110 

1120 

1130 

1140 

1150 

1160  CLS: LOCATE  5, 30,0: PRINT  "***  SECTION  6.5  ***": LOCATE 

7, 28,0: PRINT  "-TRANSMISSION  SELECTION-" 

1170  LOCATE  10, 15,0: PRINT  "ENGINE  SHAFT  HORSE  POWER 

=";ESHP: LOCATE  12 , 15 , 0 : INPUT  "USING  TABLE  VI-3  SELECT  AND 

ENTER  TRANSMISSION  WEIGHT" ;TRWT: LOCATE  14 , 15 , 0 : INPUT 

"ENTER  TRANSMISSION  RATING  IN  SHP";TRPWR 

118  0  LOCATE  2 3, 3 3,0: INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="Y" 

THEN  GOTO  1170  ELSE  IF  A$="y"  GOTO  1170  ELSE  IF  A$="N" 

GOTO  1200  ELSE  IF  A$="n"  GOTO  1200  ELSE 

1190  LOCATE  25, 27,0: PRINT  "you  must  enter  (y/n)  try 

again": GOTO  1180 

12  00  IF  X=7  THEN  GOTO  12  3  0  ELSE  RETURN  110 

1210 

1220 

1230 

1240 

1250 

12  60  CLS: LOCATE  2  3, 1,0: PRINT  "~W=COMP/" 

1270  W(6,3)=W6C(3)+TRWT+(ENGINE*EWT(EN) ) :WE2=0:FOR  1=1  TO 

15:WE2=WE2+W(I,3) :NEXT  I :NGW=WE2+FUEL+UL+ (PEOPLE*250) : 

NDL=NGW/(PI*R^2) : NCT=NGW/ (PI*R^2*RHO*OMEGA^2*R^2 ) :NTIPLOSS 

=1-(SQR(2*NCT)/B) : NPIN= (NGW^l . 5) / (SQR (2*RH0*PI* (R^2 ) ) *NTIP 

LOSS*550) 

1280  NPO=(RHO*CDO*SIGMA*PI* (R^5) * (0MEGA^3) )/4400 

1290 

NTRT= (NPIN+NPO) *550/ (OMEGA*TL) : TA=PI*TR^2 : TRVT=0MEGAT* 

TR:CTT=NTRT/(RH0*TA*TRVT^2) :TTIP=1- (SQR(2*CTT) /BT) : 

NPITR=NTRT^1.5/(SQR(2*RHO*TA)*TTIP*550) :NPOTR=SIGMAT*CDO*R 

HO*TA*TRVT^3/44  00:NPTTR=NPITR+NPOTR 

13  00  NP=NPIN+NPO : NPT=NPIN+NPO+NPTTR : HP=NPT : NPINWOTL=NPIN* 
NTIPLOSS : NFM=NPINWOTL/NP : NPERINDP= (NPIN/NP) *100 : NPERDIFP= ( 
ABS (NPT-PTT (1,1)) /NPT) *100 : NPERDIFW= (ABS (NGW- 

GW(N) )/NGW) *100 

1310  CLS: LOCATE  5, 3  0,0: PRINT  "***  SECTION  6.6  ***": LOCATE 

7, 19,0: PRINT  "-REVISED  GROSS  WEIGHT  AND  POWER  REQUIRED- 

": LOCATE  10 , 20 , 0 : PRINT  "NEW  GROSS  WEIGHT  =" ;NGW: LOCATE 

12, 2 0,0: PRINT  "NEW  TOTAL  POWER  TO  HOVER  OGE  =";NPT 

13  2  0  LOCATE  14 , 20 , 0 : PRINT  "NEW  DISC  LOADING  =" ;NDL: LOCATE 

16, 2  0,0: PRINT  "NEW  FIGURE  OF  MERIT  =" ;NFM: LOCATE 

18, 2  0,0: PRINT  "NEW  PERCENT  OF  INDUCED  POWER 

=";NPERINDP: LOCATE  20 , 20 , 0 : PRINT  "PERCENT  DIFFERENCE  IN 

TOTAL  POWER  =";NPERDIFP 

13  3  0  LOCATE  22 , 20 , 0 : PRINT  "PERCENT  DIFFERENCE  IN  WEIGHT 

=";NPERDIFW:GOSUB  1800: RETURN  110 

1340  ' 
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1350 
1360 
1370 
1380 
1390 
14  0  0  COLOR 


***  PRINT  OUT  DATA  *** 


1,1,1:CLS: LOCATE  2  3, 1,0: PRINT 


15,1,1 


ELSE  IF  PR=2  THEN 
AV=0: RETURN  110 


" -W=C6PRINT/ " : INPUT ; " " , PR : COLOR 
1410  IF  PR=1  THEN  GOSUB  1440:GOTO  1420 
GOSUB  1440: GOTO  1430  ELSE  IF  PR=3  THEN 
1420  AV=1:G0SUB  1500 :AV=0 : GOTO  1400 

990:AV=0:GOTO  1400 

2  3,1,0: PRINT  " ~W= PRINTER/ " : GOSUB 


1430 
1440 
1800 
1450 
1460 
1470 
1480 


AV=1: GOSUB 

CLS : LOCATE 

; CLS : RETURN 


***  PRINT  OUT  DATA  *** 


COLOR 


1,1,1: 


15,1,1 

IF  PR=2  THEN  GOSUB  99  0 


CLS: LOCATE  2 3, 1,0: PRINT 
"~W=C6RESULT/ " : INPUT ; " " , PR: COLOR 
1490  IF  PR=1  THEN  GOTO  1500  ELSE 
ELSE  IF  PR=3  THEN  RETURN  110 

15  0  0  IF  AV=1  THEN  LPRINT  TAB (25)  "TABLE  OF  CHAPTER  SIX 
RESULTS" :LPRINT  ""  ELSE  CLS : LOCATE  2,25,1: PRINT  "TABLE 
CHAPTER  SIX  RESULTS" 
1510  IF  AV=1  THEN  LPRINT  TAB (12)  "SELECTED  ENGINE  DATA" 


OF 


ELSE 
1520 
1530 
1540 
1550 
1560 
1570 


LOCATE  4, 12,1: PRINT  "SELECTED  ENGINE  DATA" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB (17) 
TAB (17) 
TAB (17) 
TAB (17) 
TAB (17) 
TAB (17) 


PMA(EN) 

1580  PRINT  TAB (17) 
1590  PRINT  TAB (17) 
1600  PRINT  TAB (17) 
1610  PRINT  TAB (17) 
1620  PRINT  TAB(17) 
1630  PRINT  TAB(17) 
1640  PRINT  TAB (17) 
1650  PRINT  TAB (17) 
1660  PRINT  TAB (12) 
TRPWR 

1670  PRINT  TAB (12) 
1680  IF  AV=1  THEN 
1690  IF  AV=1  THEN 
NGW  ELSE  CLS: LOCATE 


DRY  WEIGHT"; TAB (57)  DW(EN) 
SHP";TAB(57)  SHP(EN) 
SFC";TAB(57)  SFC(EN) 
INITIAL  COST"; TAB (57)  IC(EN) 
OPERATING  COST"; TAB (57)  OC(EN) 
PREVENTIVE  MAINTENANCE" ; TAB (57 ) 

MTBMA";TAB(57)  MTBMA(EN) 
MDT";TAB(57)  MDT(EN) 
MTBR";TAB(57)  MTBR(EN) 
REPLACEMENT  COST" ; TAB (57)  RC(EN) 
SALVAGE  COST"; TAB (57)  SV(EN) 
AVAILABILITY"; TAB (57)  AVAIL (EN) 
RELIABILITY"; TAB (57)  RELY (EN) 
MAINTAINABILITY"; TAB (57)  MAINT(EN) 
TRANSMISSION  RATING  (SHP) " ;TAB (57) 


"TRANSMISSION  WEIGHT" ; TAB (57 )  TRWT 
GOTO  1690  ELSE  GOSUB  1800:GOTO  1690 
PRINT  TAB (12)  "NEW  GROSS  WEIGHT" ; TAB (57) 
PRINT  "NEW  GROSS 


3,12,0 


WEIGHT"; TAB (57)  NGW 

17  0  0  PRINT  TAB (17)  "TOTAL  POWER  TO  HOVER  OGE";TAB(57) 

1710  PRINT  TAB (17)  "DISC  LOADING" ; TAB (57 )  NDL 

1720  PRINT  TAB (17)  "FIGURE  OF  MERIT" ;TAB (57)  NFM 


NPT 
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173  0  PRINT  TAB (17)  "PERCENT  INDUCED  POWER" ; TAB (57) 

NPERINDP 

1740  PRINT  TAB(17)  "PERCENT  DIFFERENCE  IN  POWER" ; TAB (57) 

NPERDIFP 

1750  PRINT  TAB (17)  "PERCENT  DIFFERENCE  IN  WEIGHT" ; TAB (57 ) 

NPERDIFW 

1760  IF  AV=1  THEN  GOTO  1770  ELSE  GOSUB  1800: GOTO  1460 

1770  LCOPY:LPRINT  CHR$  (12):RETURN  1400 

1780  ' 

1790  ' 

1800  IF  AP=1  THEN  LOCATE  2  5,79,0  ELSE  LOCATE  25 , 27 , 0 : PRINT 

"press  any  key  to  continue" 

1810  A$=INKEY$:IF  A$=""  THEN  1810 

182  0  RETURN 
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I.   CHAPTER  SEVEN 


*****************  CHAPTER  SEVEN  ********************** 

RANGE  AND  ENDURANCE 


***   CHAPTER  SEVEN  MAIN  PROGRAM   *** 


***  STORE  DATA  ON  FILE  DISK  *** 


10  KEY(5)  OFF 

20 

30 

40 

50 

60  ' ****************************************************** 

70 

80 

90 

100  • 

110  PRINT  "~C=ALL/": PRINT  "~L=CH7/" 

12  0  KEY (9)  ON: ON  KEY (9)  GOSUB  13  0 

13  0  COLOR  1,1,1:CLS: LOCATE  23 , 1 / 0 : PRINT 
" -W=C7MAIN/ " : INPUT ; " " , X 

140  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  500  ELSE  IF  X=2  THEN 

GOSUB  620  ELSE  IF  X=3  THEN  GOSUB  680  ELSE  IF  X=4  THEN 

GOSUB  750  ELSE  IF  X=5  THEN  GOSUB  840  ELSE  IF  X=6  THEN 

GOSUB  940  ELSE  IF  X=7  THEN  GOSUB  1020  ELSE 

150  IF  X=8  THEN  GOSUB  1120  ELSE  IF  X=9  THEN  GOSUB  500  ELSE 

IF  X=10  THEN  GOSUB  1620  ELSE  IF  X=ll  THEN  GOSUB  1900  ELSE 

IF  X=12  THEN  GOSUB  18  0  ELSE  IF  X=13  THEN  CLS : LOCATE 

2 3, 1,0: PRINT  "~W=LOAD/" : CHAIN  "HD1",,ALL 

160 

170 

180 

190 

200 

210  CLS: LOCATE  2 3, 1,0: PRINT  "~W=DISK/" : GOSUB  194  0: LOCATE 

25, 27,1: PRINT  "  ": LOCATE 

2 3, 1,0: PRINT  "~W=SAVE/" 

220  A(1)=SGW:A(2)=GW1:A(3) =WE : A ( 4 ) =VTI PMAX :A(5)=R:A(6)= 

OMEGA : A ( 7 ) =CT : A ( 8 ) =S IGMA :A(9)=B:A(10)=C:A(11) =AR : A ( 12 ) =CL : 

A ( 13 ) =CLALPHA : A ( 14 ) =CDO : A ( 15 ) =DL: A ( 16 ) =MBL: A ( 17 ) =MU : A ( 18 ) = 

MAXFVEL : A ( 19 ) =TIPLOSS : A ( 2  0 ) =PIN : A ( 2 1 ) =P0 : A ( 2  2 ) =PT : A ( 2  3 ) =HP 

:A(24)=PERINDP 

230  V=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V=V+1 : Q=J+24 : A(V) =W(Q- 

24,I):NEXT  J,I:FOR  1=1  TO 

3:A(I+69)=W2A(I) : A (1+72 ) =W2B (I) : A (1+75) =W6A(I) :A(I+78)=W6B 

(I) :A(I+81)=W6C(I) :NEXT 

I:A(85)=N:A(86)=WE(N) :A(87)=GW(N) :A(88)=DL(N- 

1) :A(89)=FM(N-1) : A(90) =FL: A (91) =IRLG 

240  A(92)=NW 

2  50  A ( 9 3 ) =PERDIFW : A ( 9 4 ) =PERDIFP :A(95)=Y:A(96) =FUEL : A ( 9 7 )  = 

PEOPLE:A(98)=UL:A(99)=SPECIAL:A(100)=ENGINE:A(101)=ZZ:A(10 

2)=AB:A(103)=GR:A(104)=RH:A(105)=H:A(106)=D:A(107)=PINI:A( 

108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) : A(112 ) =MM: A(ll 

3)=M(2) :A(114)=CRUISEV 

2  60  A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118)=MAXF2:A(119) 

=MAXCRU 1 : A ( 1 2  0 ) =ALT : A ( 1 2 1 ) =TEMP :A(122)=LL:A(123) =TR : A ( 1 2  4 ) 
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=TRPM : A ( 12  5 ) =OMEGAT : A ( 12  6 ) =TCDO : A ( 12  7 ) =BT : A ( 12  8 ) =TAR : A ( 12  9 

) =TRC : A ( 13  0 ) =TTR : A ( 13 1) =CTTR: A ( 13  2 ) =TRB : A ( 13  3 ) =SIGMAT : A ( 13 

4)=V:A(135)=SPAN 

270  A(136)=S:A(137) =SWP : A ( 1 3 8 ) =SWEEP : A ( 1 3 9 ) =LAVS : A ( 14 0 )  = 

VSAR:A(141)=BETA2:A(142)=T:A(14  3)=T2:A(144)=T3:A(14  5)=CLAT 

R : A ( 1 4  6 ) =ALTR : A ( 1 4  7 ) =ALTRDEG ;A(148)=TL:A(149) =BLTW : A ( 1 5  0 )  = 

CM:A(151)=THT:A(152)=AM:A(153)=AMAX:A(154)=PINIGE:A(155)=P 

TTI:A(156)=RSHP 

280  A(157)=STYPE:A(158)=ICESHD:A(159)=STRTIN:A(160)=INLET 

:A(161)=BARR:A(162)=PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165) 

=INRED : A ( 166 ) =EEDS : A ( 167 ) =RSHP1 : A ( 168 ) =RSHP2 : A ( 169 ) =RSHP3 : 

A(170)=RSHP1A:A(171)=RSHP2A:A(172)=RSHP3A:A(173)=ESHP:A(17 

4)=L0SS:A(175)=ENG 

290  A(176)=EN:A(177)=TRPWR:A(178)=TRWT:A(179)=NGW:A(18  0) 

=NPT : A ( 18 1 ) =NDL : A ( 18  2 ) =NFM : A ( 18  3 ) =NPERINDP : A ( 18  4 ) =NPERDI FP 

:A(185)=NPERDIFW:FOR  1=1  TO  3 : A(185+I) =SFC (I) : 

A(188+I)=SHP(I) :A(191+I)=WD0TF(I) :NEXT  I : A(195) =BETAH: 

A ( 19  6 ) =ALPHAH ( 1 )  : A ( 1 9  7 ) =ALPHAH ( 2 ) 

300  A(198)=PHANTOM(l) : A ( 199 ) =PHANTOM (2 ) : A(200) =MRV: A(201) 

=MRP : A ( 2  0  2 ) =FFR : A ( 2  0  3 ) =MEV : A ( 2  04 ) =ERSHPR : A ( 2  0  5 ) =EFFR : A ( 2  0  6 

)=CRUPWR(1) :A(207)=CRUPWR(2) : A (208) =CRUFFR( 1) : A(209) =CRUFF 

R ( 2 ) : A ( 2 1 0 ) =TFUEL : A ( 2 1 1 ) =TIME : A ( 2 12 ) =NGW2 : G=2 1 3 

310  LL=LL+1:F0R  1=1  TO  LL: A(G) =0 (I) : G=G+1 :NEXT  I:G=G+1+LL: 

G1=G+1+2*LL:G2=G1+1+2*LL:G3=G2+1+2*LL:G4=G3+1+2*LL 

320  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G) =PINF (I , J) : A(G1) = 

POF(I,J) :A(G2)=PPF(I,J) : A(G3 ) =PTF (I , J) : A(G4) =TM(I , J) :G=G+1 

:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J, I 

330  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : A(G4) =PITR(I) : 

A(G5)=P0TR(I) :A(G6)=PTTR(I) : A(G7) =CLTR(I) :G4=G4+1 : G5=G5+1 : 

G6=G6+l:G7=G7+l:NEXT  I : G8=G7+l+2* (LL-1) : G9=G8+l+2* (LL-1) 

340  FOR  1=1  TO  2:F0R  J=2  TO  LL: A(G7) =PITRF (I , J) : A (G8) = 

POTRF(I,J) :A(G9)=PTTRF(I,J) : G7=G7+1 : G8=G8+1 : G9=G9+1 : NEXT 

J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL:G13=G12+1+ 

2*LL:G14=G13+1+2*LL 

350  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G9) =TTM(I , J) : A(GIO) = 

TRT(I,J) :A(G11)=L(I,J) :A(G12)=VERSTAB(I,J) : A(G13 ) =PTTRVSF ( 

I, J) :A(G14)=PITRFI(I,J) :G9=G9+1:G10=G10+1:G11=G114-1:G12=G1 

2+l:G13=G13+l:G14=G14+l:NEXT  J, I 

3  60  G15=G14+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18= 

G17+1+2*LL:G19=G18+1+2*LL:G2  0=G19+1+2*LL:G21=G2 0+1+2 *LL 

370  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G15) =AL90 (I , J) : A (G16) = 

AL270(I,J) :A(G17)=M90(I,J) : A(G18) =MCRIT (I , J) : A(G19) =PS (I , J 

) :A(G20)=PM(I,J) : A(G21) =PTT (I , J) : G15=G15+1 : G16=G16+1 : G17=G 

17+1 : G18=G18+1:G19=G19+1:G2  0=G2 0+1 :G21=G2 1+1: NEXT  J, I 

380  G2  2=G21+1:G2  3=G2  2+1+ENG:G2  4=G2  3+1+ENG:G2  5=G2  4+1+ENG: 

G2  6=G2  5+1+ENG:G2  7=G2  6+1+ENG:G2  8=G2  7+1+ENG:G2  9=G2  8+1+ENG:G3 

0=G2  9+1+ENG:G31=G3  0+1+ENG:G3  2=G31+1+ENG:G3  3=G3  2+1+ENG:G3  4= 

G3  3+1+ENG:G3  5=G34+1+ENG:G3  6=G35+1+ENG:G3  7=G3  6+1+ENG:G3  8=G3 

7+1+ENG 

39  0  G3  9=G38+1+ENG:G4  0=G39+1+ENG:G41=G4  0+1+ENG 
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400  FOR  1=1  TO  ENG:A(G22)=DW(I) :A(G23)=SHP(I) :A(G24)= 
SFC(I) :A(G25)=IC(I) : A(G26) =0C (I) : A(G27) =PMA(I) :A(G28)=MTBM 
A(I) :A(G29)=MDT(I) : A(G30) =MTBF (I) : A(G31) =MTBR(I) :A(G32)=RC 
(I) :A(G33)=SV(I) :A(G34)=AVAIL(I) : A(G35) =RELY (I) :A(G36)=MAI 
NT  ( I ) 

410  A(G37)=LC(I) : A (G38) =EWT (I) : A(G39) =Y0 (I) : A(G40) =YM(I) : 
A(G41)=NRPL(I) :G2  2=G2  2+1:G2  3=G2  3+1:G2  4=G2  4+1:G25=G2  5+1:G2  6 
=G2  6+1:G27=G27+1:G2  8=G2  8+1:G2  9=G29+1:G3  0=G3  0+1:G31=G31+1:G 
32=G3  2+1:G3  3=G3  3+1:G3  4=G3  4+1:G3  5=G3  5+1:G3  6=G3  6+1 
420  G37=G37+l:G38=G38+l:G39=G39+l:G40=G40+l:G41=G41:NEXT  I 

LL(5)=186+(4  6*LL)+(50*ENG) :LL=LL-1 

Z=7:0PEN  "B:DATA1"  FOR  OUTPUT  AS  #1: PRINT  #1,  Z : FOR 

TO  10:PRINT  #1,  LL(I):NEXT  I : CLOSE  #1 

OPEN  "B:DATA7"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  LL(5):PRINT 

A(I) :NEXT  I : CLOSE  #1:RETURN • 120 


430 
440 
1=1 
450 

#1, 
460 
470 
480 
490 
500 
510 
520 


***  SECTION  7.1  *** 


7,31, 


CLS: LOCATE  5, 3  0,1: PRINT  "***  SECTION 
0: PRINT  "-FUEL  FLOW  RATE-" : LOCATE  9, 


7.1  ***": LOCATE 
2  5,1: INPUT  "ENTER 


SFC  AT  MILITARY  POWER" ; SFC ( 1) : LOCATE  10 , 25, 1 : INPUT  "ENTER 

SHP  AT  MILITARY  POWER" ;SHP (1) 

530  LOCATE  12 , 25 , 0 : INPUT  "ENTER  SFC  AT  NORMAL 

POWER" ;SFC (2 ): LOCATE  13 , 25 , 0 : INPUT  "ENTER  SHP  AT  NORMAL 

POWER" ; SHP (2 ): LOCATE  15 , 25 , 0 : INPUT  "ENTER  SFC  AT  CRUISE 

POWER" ;SFC (3 ): LOCATE  16, 25, 0 : INPUT  "ENTER  SHP  AT  CRUISE 

POWER"; SHP (3) 

54  0  FOR  1=1  TO  3:WD0TF(I)=SFC(I)*SHP(I) *ENGINE:NEXT   _ 

I: LOCATE  18, 25,0: PRINT  "FUEL  FLOW  #FUEL/HR  (MILITARY) 

=";WD0TF(1) : PRINT  TAB(25)  "FUEL  FLOW  #FUEL/HR  (NORMAL) 

=";WD0TF(2) :PRINT  TAB(25)  "FUEL  FLOW  #FUEL/HR  (CRUISE) 

=";WD0TF(3) 

INPUT  "ANY  CHANGES  (Y/N) " ;A$ : IF  A$="Y" 

IF  A$="y"  GOTO  520  ELSE  IF  A$="N"  GOTO 

GOTO  570  ELSE 

PRINT  "you  must  enter 
again" 
570  IF 
580 
590 
600 
610 
620 

630  CLS: LOCATE  5, 30,1: PRINT  "***  SECTION  7.2  ***": LOCATE 
7,20,1: PRINT  "-FUEL  FLOW  AS  A  FUNCTION  OF  HORSEPOWER-" 
640  IF  SFC(3)=0  THEN  BETAH= (WDOTF (1) -WDOTF (2 ))/ (ENGINE* 
(SHP(1)-SHP(2) ) )  ELSE  BETAH= (WDOTF ( 1) -WDOTF (3 ))/ (ENGINE* 
(SHP(1)-SHP(3) ) ) 


550  LOCATE  2  3,30,1 
THEN  GOTO  52  0  ELSE 
570  ELSE  IF  A$="n" 
560  LOCATE  24,27,1 


(y/n)  try 


GOTO  550 
X=9  THEN 


GOTO  59  0  ELSE  RETURN  12  0 


***  SECTION  7.2  *** 
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650  ALPHAH=WD0TF(1) -(ENGINE*BETAH*SHP(1) ) : LOCATE 

10, 25,0: PRINT  "ZERO  HORSEPOWER  INTERCEPT=  " ; ALPHAH: GOSUB 

194  0: IF  X=9  THEN  GOTO  67  0  ELSE  RETURN  12  0 

660  • 

670  • 

680  '  ***  SECTION  7.3  *** 

690  ' 

700  • 

710  CLS: LOCATE  5, 30,0: PRINT  "***  SECTION  7.3  ***": LOCATE 

7, 18,0: PRINT  "-FUEL  FLOW  RATE  AT  SPECIFICATION  CONDITIONS- 

": DELTA (1)=1:THETA(1)=1: DELTA (2)= (1-6. 87535E-06*ALT) ^ 

5.2561:THETA(2)=(459.688+TEMP)/518.688 

720  FOR  1=1  TO  2:ALPHAH(I)=ALPHAH*DELTA(I) *SQR(THETA(I) ) 

:NEXT  I: LOCATE  10 , 13 , 0 : PRINT  "ZERO  HORSEPOWER  INTERCEPT  AT 

SPECIFICATION  ALTITUDE  ="; ALPHAH (2) : GOSUB  1940:IF  X=9  THEN 

GOTO  74  0  ELSE  RETURN  12  0 

730  ' 

740  • 

750  '  ***  SECTION  7.4  *** 

760  ' 

770  • 

780  CLS: LOCATE  3, 30,0: PRINT  "***  SECTION  7.4  ***": LOCATE 

5, 22,0: PRINT  "-ZERO-VELOCITY  HORSEPOWER  INCREMENT-" 

79  0  FOR  1=1  TO  2:PHANT0M(I)=ALPHAH(I)/BETAH:NEXT  I : LOCATE 

10, 2  5,0: PRINT  "PHANTOM  HORSEPOWER  ="; PHANTOM ( 1) : GOSUB 

194  0: IF  X=9  THEN  GOTO  82  0  ELSE  RETURN  12  0 

800  ' 

810  ' 

820  '  ***  SECTION  7.5  *** 

830  ' 

840 


I 


850  CLS: LOCATE  5, 30,0: PRINT  "***  SECTION  7.5  ***": LOCATE 

7, 2 8,0: PRINT  "-MAXIMUM  RANGE  VELOCITY-" : LOCATE 

2  3, 1,0: PRINT  "~W=COMP/" 

860  GOSUB  198  0: BEEP: PRINT  "~C=ALL/" : LOCATE  10 , 25 , 0 : PRINT 

"MAXIMUM  RANGE  VELOCITY" ;MRV: LOCATE  12 , 25 , 0 : PRINT  "SHP  FOR 

MAXIMUM  RANGE  VELOCITY  =" ;MRP1 : FFR=MRP*BETAH: LOCATE 

14, 25,0: PRINT  "REFERRED  HORSEPOWER  =" ;MRP 

870  LOCATE  16 , 25 , 0 : PRINT  "FUEL  FLOW  REQUIRED  =";FFR: GOSUB 

1940 

880  FOR  1=1  TO 

LL+l:PTT(l,I)=SAVEP(I) : 0 (I) =SAVEV (I) : PS (1, I) =SAVEPS (t) :PM( 

1,1) =SAVEPM ( I ) : NEXT  I 

890  IF  X=9  THEN  GOTO  92  0  ELSE  RETURN  12  0 


900 
910 
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920  •  ***  SECTION  7.6  *** 

930  • 

940  ' 

950  CLS: LOCATE  5, 30,0: PRINT  "***  SECTION  7.6  ***": LOCATE 

7 ,25,0: PRINT  "-MAXIMUM  ENDURANCE  VELOCITY-" : LOCATE 

10, 22,0: PRINT  "ENTER  MAXIMUM  ENDURANCE  VELOCITY  =";MEV 

960  LOCATE  12 , 22 , 0 : PRINT  "SHP  FOR  MAXIMUM  ENDURANCE 

VELOCITY  =";PMIN 

97  0  ERSHPR=PHANTOM ( 1 ) +PMIN : EFFR=ERSHPR*BETAH : LOCATE 

14,22,0: PRINT  "REFFERED  HORSEPOWER  =" ;ERSHPR: LOCATE 

16,22,0:PRINT  "FUEL  FLOW  REQUIRED  =" ;EFFR: GOSUB  1940 

980  IF  X=9  THEN  GOTO  1000  ELSE  RETURN  120 

990  ' 

1000  ' 

1010  '  ***  SECTION  7.7  *** 

1020  • 

1030  • 

1040  CLS: LOCATE  5, 30,0: PRINT  "***SECTION  7.7  ***": LOCATE 

7, 18,0: PRINT  "-SPECIFICATION  CRUISE  POWER  AND  FUEL  FLOW- 

":  LOCATE  2  3, 1,0:  PRINT  "--W=COMP/"  :  FOR  1=1  TO  LL:IF 

0(I)=CRUISEV  THEN  II=I:GOTO  1050  ELSE  NEXT  I 

1050  VF1=0(II) :FOR  U=l  TO  2 : GOSUB  1190:NEXT  U:FOR  1=1  TO 

2 : CRUPWR ( I ) =PHANTOM ( I ) +PTT (1,0): CRUFFR ( I ) =CRUPWR ( I ) *BETAH : 

NEXT  I 

1060  PRINT  "~C=ALL/": LOCATE  10 , 15 , 0 : PRINT  "CRUISE  FUEL 

FLOW  REQUIRED  AT  SSL  ="; CRUFFR ( 1) : LOCATE  12 , 15 , 0 : PRINT 

"CRUISE  FUEL  FLOW  REQUIRED  AT  SPCECIFICATION  ALTITUDE 

=";CRUFFR(2) : GOSUB  1940:IF  X=9  THEN  GOTO  1090  ELSE  RETURN 

120 

1070  • 

1080  ' 

1090  '  ***  SECTION  7.8  *** 

1100  ' 

1110  ' 

1120  CLS: LOCATE  5, 30,0: PRINT  "***  SECTION  7.8  ***": LOCATE 

7, 2 7,0: PRINT  "-TOTAL  FUEL  REQUIREMENTS-" : LOCATE 

10, 23,0: INPUT  "ENTER  SPECIFICATION  MAXIMUM 

RANGE" ;MAXRG: TIME  =  MAXRG/CRUISEV 

1130 

TFUEL= ( . 1*BETAH* (SHP (2 ) +PHANT0M(1) ) ) + ( . 25*ERSHPR*BETAH) + (T 

IME*CRUFFR(2) ) : NGW2=NGW-FUEL+TFUEL: LOCATE  12 , 23 , 0 : PRINT 

"TOTAL  FUEL  REQUIRED  =" jTFUEL: LOCATE  14 , 23 , 0 'PRINT  "NEW 

GROSS  WEIGHT  ="; NGW2 : GOSUB  1940:RETURN  120 

1140 

1150 

1160 

1170 

1180 

1190  L=0 

12  00  •LL=LL+1:F0R  1=1  TO  2 : FOR  J=l  TO 

LLL:P0F1(I,J)=P0F(I,J) :PPF1(I,J)=PPF(I,J) : PTFl (I , J) =PTF (I, 
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***  POWER  CALCULATIONS  *** 


J) :PITRF1(I,J)=PITRF(I,J) : POTRFl (I , J) =POTRF (I , J) :PTTRF1(I, 

J)=PTTRF(I,J) :NEXT  J, I 

1210  RHO(l)=RHO:DA=PI*R^2:VT=OMEGA*R:TRA=PI*TR^2:VH2=GW(N) 

/(2*RH0(U) *DA) :VF=VF1*1. 687778 :MU3=VF/VT:CT(U)=GW(N)/(RH0( 

U) *DA*VT^2) :TIPLOSS (U) =1- (SQR(2*CT (U) )/B) 

1220  PINF(U,L)=(GW(N) *SQR( ( (VF^2) / (-VH2*2) )+SQR( ( (VF^2)/ 

(2*VH2) ) ^2+1) ) *SQR(VH2) ) / (550*TIPLOSS (U) ) : POF (U, L) = (SIGMA* 

CDO*RHO(U)*DA*VT^3*(l+4.3*(MU3^2) ) ) /44  00 : PPF (U, L) = (RHO (U) * 

(VF^3 ) *EFPA) /llOO : PTF (U, L) =PINF (U, L) +POF (U, L) +PPF (U, L) 

12  3  0  TTR=( ( (PT*550) /OMEGA) /TL) : CTTR=TTR/ (PI* (TR^4 ) *RHO (U) 
*(0MEGAT^1.5) ) :TB(U)=l-( (SQR(2*CTTR) /BT) ) :PITR(U)= 

( ( (TTR^1.5)/SQR(2*PI*(TR^2) *RHO(U) ) )/TB(U) ) /550 : SIGMAT= (BT 

*TRC)/(PI*TR) :POTR(U)=(SIGMAT*CDO*RHO(U) *PI*(TR^5) *OMEGAT^ 

3)/44  00:PTTR(U)=PITR(U)+POTR(U) 

1240  VF=1.687778*VF1:MU2=VF/(0MEGA*R) :VITR=SQR( (-(VF^2)/2) 

+SQR( ( ( (VF^2)/2)^2)+( (PTF(U,L) *550)^2)/( (2*TRA*RH0 (U) *TL*0 

MEGA) ^2) ) ) :PITRF(U,L)=( ( (PTF (U, L) *550) / (TL*OMEGA) ) *VITR)/( 

550*TB(U) ) 

1250  POTRF(U,L)=SIGMAT*CDO*RHO(U)*TRA*( (OMEGAT*TR) ^3 ) *(1+ 

(4 . 3* (MU2^2 ) ) ) /4400 : PTTRF (U, L) =PITRF (U, L) +POTRF (U, L) 

1270  ' 

1280  • 

1290  MM=M:BB=B:EE=BLTW:THT=EE*PI/18  0:W=ABS(EE) 

1300  M(l)=1116.89 

1310  CT=GW(N)/(RHO(U) *DA*VT^2) 

1320  B=1-(SQR(2*CT)/BB) 

1330 

Tl=.5*( (B^2)+.5*(MU3^2) ) :T2=( (B^3 ) /3 ) + ( . 5* (MU3^2 ) *B) :T3=( ( 

B^2)/4)*(B^2+MU3^2) :T4=(.5*MU3) *( (B^2)+( (MU3^2)/4) ) :B1=(B^ 

2-.5*(MU3^2) ) :A11=4*( (MU3* (B^2 )/2) - (MU3^3 ) /8) / ( (B^2) *B1) : 

A12=(8*MU3*B)/(3*B1) : A13= (2*MU3* (B^2 ) ) /Bl : A14= (B^2+ (3* (MU3 

-2))/2)/B 

13  4  0  A14=(B^2+(3*MU3^2)/2)/Bl:PPF(U,L)=RHO(U) *VF^3*EFPA/2 : 
IF  VFK40  THEN  LAM=SQR  (CT/2  )  :  PPF  (U,  L)  =PPF  (U,  L) /550  ELSE 
LAM=--(  (  (PPF(U,L)  )/GW(N)  )  +  (GW(N)  /  (2*RH0  (U)  *DA*VF)  )  )/VT: 
PPF(U,L)=PPF(U,L)/550 

1350  F(1)=(2*CT/(SIGMA*CLALPHA) ) -LAM*T1-THT*T3 : F (2) =- 

LAM*A11-THT*A13 : K ( 1 , 1) =T2 : K ( 1 , 2 ) =T4 : K ( 2 , 1 ) =A12 : K ( 2 , 2 ) = 

A14:H=2 

1360  ' 

137  0  '    SIMULTANEOUS  EQUATION  SOLVER  USING  MATRIX 

13  80  •    DECOMPOSTION  WITH  FORWARD  SUBSTITUTION  IN  LOWER 
139  0  '    TRIANGULAR  SYSTEM  AND  BACK-SUBSTITUTION  IN  UPPER 

14  00  '    TRIANGULAR  SYSTEM 
1410  ' 

1420  • 

1430  FOR  D=2  TO  H:FOR  1=1  TO  D-1:F0R  M=l  TO  I-1:K(D,I) 
=K(D,I)-(K(D,M)*K(M,I) ) :K(I,D)=K(I,D)-(K(I,M)*K(M,D) ) :NEXT 
M:K(D,I)=K(D,I)/K(I,I) :NEXT  I : FOR  J=l  TO  D-1 : K (D, D) =K (D, D) 
-(K(D,J)*K(J,D) ) :NEXT  J,D 
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1440  FOR  1=2  TO  H:E=0:FOR  J=l  TO  I-1:G=K(I , J) *F ( J) : 

E=E+G:NEXT  J: F (I) =F (I) -E :NEXT  I 

1450  F(H)=F(H)/K(H,H) :FOR  I=H-1  TO  1  STEP  -1:P=0:FOR  J=I+1 

TO  H:Q=F(J)*K(I,J) :P=P+Q:NEXT  J: F (I) = (F (I) -P) /K(I , I) :NEXT 

I:TH0-F(1) :TH2=F(2) :FOR  1=1  TO  2:F(I)=0:FOR  J=l  TO 

2:K(I,J)=0:NEXT  J, I 

1460  AL9  0(U,L)=(TH0+TH2+THT+(LAM/(1+MU3) ) ) *180/PI: 

AL270(U,L)=(TH0-TH2+THT+(LAM/(1+MU3) ) )*18  0/PI 

1470  ' 

1480  ACK=AL2  7  0(U,L)-AMAX:IF  ACK<0  THEN  PS(U,L)=0  ELSE 

PS(U,L)=(ACK/4) *POF(U,L) 

1490  ' 

1500  ' 

1510  MTIP=VT/M(U) :MU3=VF/VT:M9  0(U,L)=MTIP*(1+MU3) :IF 

CAM$="N"  OR  CAM$="n"  THEN  MCRIT (U, L) =CM- (2 . 3*ABS (AL90 

(U,L) )*PI/180)  ELSE  MCRIT(U;L)=CM-(2.3*AL90(U,L) *PI/180) 

1520  MD=M90(U,L)-MCRIT(U,L)-.06:IF  MD<0  THEN  PM(U,L)=0 

ELSE 

PM(U,L)=( ( (.012*MD)+.1*(MD^3) ) *SIGMA*RHO (U) *DA*VT^3 ) /550 

1530  • 


PTT (U, L) =PTF (U, L) +PS (U, L) +PM(U, L) +PTTRF (U, L) 
M=MM:B=BB: RETURN 


1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620  IF  AT=1  THEN 

RESULTS"  ELSE  CLS 

SEVEN  RESULTS" 

163  0  LOCATE  4,12,0 

SFC(l) 

1640  PRINT  TAB (12) 
PRINT  TAB (12) 
PRINT  TAB (12) 
PRINT  TAB (12) 
PRINT  TAB (12) 
PRINT  TAB (12) 


LPRINT 
LOCATE 


***  PRINT  DATA  *** 


TAB (25)  "TABLE  OF  CHAPTER  SEVEN 
2, 25,0: PRINT  "TABLE  OF  CHAPTER 


1650 

1660 

1670 

1680 

1690 

WDOTF(l) 

17  00  PRINT 

WD0TF(2) 

1710  PRINT 

WD0TF(3) 

1720  PRINT 


TAB (12) 
TAB (12) 


PRINT  "SFC  MILITARY  POWER" ; TAB (57) 

"SFC  NORMAL  POWER" ; TAB ( 57 )  SFC (2) 
"SFC  CRUISE  POWER"; TAB (57)  SFC (3) 
"SHP  MILITARY  POWER" ; TAB (57 )  SHP(l) 
"SHP  NORMAL  POWER" ; TAB (57 )  SHP (2) 
"SHP  CRUISE  POWER"; TAB (57)  SHP (3) 
"FUEL  FLOW  MILITARY  POWER" ; TAB (57) 

"FUEL  FLOW  NORMAL  POWER" ; TAB (57) 

"FUEL  FLOW  CRUISE  POWER" ; TAB (57 ) 

"ZERO  HORSEPOWER  INTERCEPT  AT 


TAB (12) 
SSL"; TAB (57)  ALPHAH(l) 

17  3  0  PRINT  TAB (12)  "ZERO  HORSEPOWER  INTERCEPT  AT  SPEC. 
ALTITUDE"; TAB (57)  ALPHAH(2) 

1740  PRINT  TAB(12)  "PHANTOM  HORSEPOWER  AT  SSL";TAB(57) 
PHANTOM ( 1 ) 
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1750  PRINT  TAB (12)  "PHANTOM  HORSEPOWER  AT  SPEC. 

ALTITUDE"; TAB (57)  PHANTOM (2) 

1760  IF  AT=1  THEN  GOTO  1770  ELSE  GOSUB  1940 

1770  IF  AT=1  THEN  PRINT  TAB (12)  "MAXIMUM  RANGE 

VELOCITY"; TAB (57)  MRV  ELSE  CLS : LOCATE  5, 12,0: PRINT 

"MAXIMUM  RANGE  VELOCITY" ;TAB (57)  MRV 

17  8  0  PRINT  TAB (12)  "MAXIMUM  RANGE  REFFERED 

MRP 
"MAXIMUM  RANGE  FUEL  FLOW" ; TAB (57)  FFR 
"MAXIMUM  ENDURANCE  VELOCITY" ; TAB (57 ) 


HORSEPOWER" ; TAB ( 57 ) 
1790  PRINT  TAB (12) 
18  00  PRINT  TAB (12) 
MEV 

1810  PRINT  TAB (12) 
HORSEPOWER" ; TAB ( 57 ) 
182  0  PRINT  TAB (12) 
EFFR 

18  3  0  PRINT  TAB (12) 
CRUFFR(l) 

1840  PRINT  TAB (12) 
ALTITUDE"; TAB (57) 
1850  PRINT  TAB (12) 
PRINT  TAB (12) 
IF  AT=1  THEN 


"MAXIMUM  ENDURANCE  REFFERED 

ERSHPR 
"MAXIMUM  ENDURANCE  FUEL  FLOW" ;TAB (57 ) 

"CRUISE  FUEL  FLOW  AT  SSL"; TAB (57) 


GOSUB  194  0: RETURN  12  0 


"CRUISE  FUEL  FLOW  AT  SPEC. 

CRUFFR(2) 
"TOTAL  FUEL  REQUIRED" ; TAB (57 )  TFUEL 
"NEW  GROSS  WEIGHT"; TAB (57)  NGW2 

LCOPY:LPRINT  CHR$  (12 ) :AT=0 : RETURN  12  0 


***  HARD  COPY  OF  DATA  *** 


1860 
1870 
ELSE 
1880 
1890 
1900 
1910 
1920 

193  0  CLS: LOCATE  2  3, 1,0: PRINT  " ~W= PRINTER/ ": GOSUB 

194  0: CLS :AT=1: GOSUB  162  0: AT=0 : RETURN  12  0 

1940  LOCATE  25 , 27 , 0 : PRINT  "press  any  key  to  continue"   

1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 


A$=INKEY$:IF  A$=""  THEN  1960 
RETURN 


***  MAXIMUM  ENDURANCE  CALCULATIONS  *** 


FOR  1=1  TO 


LL+1:SAVEP(I)=PTT(1,I) : SAVEV(I) =0 (I) : SAVEPS (I) =PS (1, I) : SAV 

EPM ( I ) =PM (1,1): NEXT  I 

2040  VMIN=PTT(1,1) : 11=1: FOR  1=2  TO  LL:IF  PTT (1, I) <VMIN 

THEN  VMIN=PTT(1,I) :II=I 

2050  NEXT  I 

2060  PMIN=VMIN:U=1:MEV=0(II) :FOR  T=l  TO 

19:U=1:VF1=0(II)+T:L=T:G0SUB  12 10: IF  PTT (1,T) <PMIN  THEN 

PMIN=PTT(1,T) :MEV=VF1 

2070  NEXT  T 

2080  FOR  T=l  TO  19 : VF1=0 (II) -T: L=T: GOSUB  1210:IF 

PTT(1,L)<PMIN  THEN  PMIN=PTT ( 1 , L) :MEV=VF1 
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2090  NEXT  T 

2100  ' 

2110  • 

2120  • 

2130  ' 

2140  ' 

2150  ' 

2160  ' 

2170  ' 

2180  VEL=MAXFVEL-MEV:JJ=1:ANG(JJ-1)=200:FOR  JJ=1 

VEL: L=l : U=l : VF1=MEV+JJ : GOSUB 

1210: PWR=PHANTOM ( 1 ) +PTT (1,1) : ANG ( J J ) =PWR/VF1 

219  0  IF  ANG(JJ)<ANG(JJ-1)  THEN  MRP=PWR:MRP1=PWR- 

PHANTOM(l) :MRV=VF1  ELSE  GOTO  2210 

2200  NEXT  JJ 

2  210  RETURN 


***  MAXIMUM  RANGE  CALCULATIONS  *** 


TO 
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J.   CHAPTER  EIGHT 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 


KEY (5)  OFF 
****************** 


CHAPTER  EIGHT  ********************* 


MISCELLANEOUS  CALCULATIONS 
****************************************************** 

***   CHAPTER  EIGHT  MAIN  PROGRAM   *** 


CLS: PRINT  "~C=ALL/": PRINT  "~L=CH8/" 
KEY (9)  ON: ON  KEY (9)  GOSUB  13  0 
COLOR  1,1,1: CLS: LOCATE  23 , 1,0 : PRINT 

" ~W=C8MAIN/ " : INPUT ; " " , X 

14  0  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  52  0  ELSE  IF  X=2 


THEN 


GOSUB  650  ELSE  IF  X=3  THEN 
GOSUB  92  0  ELSE  IF  X=5  THEN 
GOSUB  52  0  ELSE  IF  X=7  THEN 
150  IF  X=8  THEN  GOSUB  1820 
IF  X=10  THEN  CLS: LOCATE  23 


23,54,1: PRINT 


GOSUB  770  ELSE  IF  X=4  THEN 
GOSUB  1100  ELSE  IF  X=6  THEN 
GOSUB  1630  ELSE 

ELSE  IF  X=9  THEN  GOSUB  220  ELSE 
1,0: PRINT  "~W=LOAD/": CHAIN 

":GOTO  14  0 


***  STORE  DATA  ON  FILE  DISK  *** 


"HDl", ,ALL 

160  LOCATE 

170 

180 

190 

200 

210 

220  CLS:LOCATE  23,1,0:PRINT  "~W=DISK/" : GOSUB  1850:LOCATE 

25, 27,1: PRINT  "  ": LOCATE 

2  3, 1,0: PRINT  "~W=SAVE/" 

230  A(1)=SGW:A(2) =GW1 : A ( 3 ) =WE : A ( 4 ) =VTI PMAX : A ( 5 ) =R : 

A ( 6 ) =OMEGA : A ( 7 ) =CT : A ( 8 ) =S IGMA :A(9)=B:A(10)=C:A(11) =AR : A ( 12 

) =CL : A ( 13 ) =CLALPHA : A ( 14 ) =CDO : A ( 15 ) =DL : A ( 16 ) =MBL: A ( 17 ) =MU : A 

( 18 ) =MAXFVEL : A ( 19 ) =TIPLOSS : A ( 2  0 ) =PIN : A ( 2 1 ) =P0 : A ( 2  2 ) =PT : A ( 2 

3 ) =HP : A ( 2  4 ) =PERINDP 

240  V=24:FOR  1=1  TO  3 : FOR  J=l  TO  15 : V=V+1 :Q=J+24 : A(V) =W(Q- 

24,I):NEXT  J,I:FOR  1=1  TO  3 : A(I+69) =W2A(I) : A(I+72 ) =W2B (I) : 

A(I+75)=W6A(I) :A(I+78)=W6B(I) : A(I+81) =W6C (I) :NEXT 

I:A(85)=N:A(86)=WE(N) :A(87)=GW(N) : A(88) =DL(N-1) : 

A(89)=FM(N-1) :A(90)=FL:A(91)=IRLG 

250  A(92)=NW 

2  60  A ( 9 3 ) =PERDIFW : A ( 9 4 ) =PERDIFP :A(95)=Y:A(96) =FUEL : 

A ( 97 ) =PEOPLE : A ( 9  8 ) =UL : A ( 9  9 ) =SPECIAL : A ( 10  0 ) =ENGINE : A ( 10 1 ) =Z 

Z:A(102)=AB:A(103)=GR:A(104)=RH:A(105)=H:A(106)=D:A(107)=P 

INI:A(108)=PTI:A(109)=M:A(110)=EFPA:A(111)=RHO(2) :A(112)=M 

M:A(113)=M(2) :A(114  ) =CRUISEV 

270  A(115)=CRU:A(116)=CRU2:A(117)=MAXF:A(118)=MAXF2: 

A ( 119 ) =MAXCRU1 : A ( 12  0 ) =ALT : A ( 12 1 ) =TEMP : A ( 12  2 ) =LL : A ( 12  3 ) =TR : 

A ( 12  4 ) =TRPM : A ( 12  5 ) =OMEGAT : A ( 12  6 ) =TCDO : A ( 12  7 ) =BT : A ( 12  8 ) =TAR 
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: A ( 12  9 ) =TRC : A ( 13  0 ) =TTR : A ( 13 1 ) =CTTR : A ( 13  2 ) =TRB : A ( 13  3 ) =SIGMA 
T:A(134)=V:A(135)=SPAN 

280  A(136)=S:A(137) =SWP : A ( 1 3 8 ) =SWEEP : A ( 13 9 ) =LAVS : 
A(14  0)=VSAR:A(141)=BETA2:A(14  2)=T:A(143)=T2:A(14  4)=T3:A(14 
5 ) =CLATR : A ( 14  6 ) =ALTR : A ( 14  7 ) =ALTRDEG : A ( 14  8 ) =TL : A ( 14  9 ) =BLTW : 
A(150)=CM:A(151)=THT:A(152)=AM:A(153)=AMAX:A(154)=PINIGE:A 
(155) =PTTI : A ( 1 5  6 ) =RSHP 

2  9  0  A ( 157 ) =STYPE : A ( 158 ) =ICESHD : A ( 159 ) =STRTIN : A ( 16 0 ) =INLET : 
A(161)=BARR:A(162)=PARTSEP:A(163)=EAPS:A(164)=HDIF:A(165)= 
INRED : A ( 166 ) =EEDS : A ( 167 ) =RSHP1 : A ( 168 ) =RSHP2 : A ( 169 ) =RSHP3 : A 
(17  0) =RSHP1A : A ( 17 1 ) =RSHP2 A : A ( 17  2 ) =RSHP3 A : A ( 17  3 ) =ESHP : A ( 17  4 
)=L0SS:A(175)=ENG 

3  00  A(17  6)=EN:A(177)=TRPWR:A(178)=TRWT:A(179)=NGW: 

A ( 18  0 ) =NPT : A ( 18 1 ) =NDL : A ( 18  2 ) =NFM : A ( 1 8  3 ) =NPERINDP : A ( 18  4 ) =NP 

ERDIFP:A(185)=NPERDIFW:FOR  1=1  TO 

3:A(185+I)=SFC(I) :A(188+I)=SHP(I) : A(191+I) =WDOTF (I) :NEXT 

I : A ( 19  5 ) =BETAH : A ( 19  6 ) =ALPHAH ( 1 )  : A ( 197 ) =ALPHAH ( 2 ) 

310  A(19  8)=PHANTOM(l) : A ( 19  9 ) =PHANTOM (2 ) :A(200)=MRV: 

A ( 2  0 1 ) =MRP : A ( 2  02 ) =FFR : A ( 2  0  3 ) =MEV : A ( 2  04 ) =ERSHPR : A ( 2  05 ) =EFFR 

:A(206)=CRUPWR(1) : A (207 ) =CRUPWR(2 ) : A (208 ) =CRUFFR ( 1) :A(209) 

=CRUFFR ( 2 ) : A ( 2 10 ) =TFUEL : A ( 2 11 ) =TIME : A ( 2 12 ) =NGW2 : A ( 2 13 ) =PTF 

1:A(214)=PDGW2 

3  2  0    A  ( 2 15 )  =DIF  :  A  ( 2 16 )  =NGW3  :  A  ( 2 17 )  =MCV :  A  ( 2 18  )  =WERT  : 
A(219)=MHA:A(220)=SC:A(221)=BW:A(222)=BH:A(223)=FL:A(224)= 
VEFPA:A(225)=MCSHP:A(226)=T2FUEL:A(227)=LS4:G=228 

330    LL=LL+1:F0R    1=1    TO    LL: A (G) =0 (I) : G=G+1 : NEXT 

I:G=G+l+LL:Gl=G+l+2*LL:G2=Gl+l+2*LL:G3=G2+l+2*LL:G4=G3+l+2 

*LL 

340  FOR  1=1  TO  2:F0R  J=l  TO  LL: A (G) =PINF (I , J) : 

A(G1)=P0F(I,J) :A(G2)=PPF(I,J) : A (G3 ) =PTF (I , J) : A (G4 ) =TM (I , J) 

:G=G+1:G1=G1+1:G2=G2+1:G3=G3+1:G4=G4+1:NEXT  J, I 

350  G5=G4+2:G6=G5+2:G7=G6+2:FOR  1=1  TO  2 : A(G4) =PITR(I) : 

A(G5)=P0TR(I) :A(G6)=PTTR(I) : A(G7) =CLTR(I) :G4=G4+1 :G5=G5+1: 

G6=G6+1:G7=G7+1:NEXT  I :G8=G7+l+2* (LL-1) : G9=G8+l+2* (LL-1) 

360  FOR  1=1  TO  2:F0R  J=2  TO  LL: A(G7) =PITRF (I , J) : 

A(G8)=P0TRF(I,J) :A(G9)=PTTRF(I,J) : G7=G7+1 : G8=G8+1 : G9=G9+1 : 

NEXT  J,I:G10=G9+1+2*LL:G11=G10+1+2*LL:G12=G11+1+2*LL: 

G13=G12+1+2*LL:G14=G13+1+2*LL 

370  FOR  1=1  TO  2:F0R  J=l  TO  LL: A(G9) =TTM(I , J) : 

A(G10)=TRT(I,J) :A(G11)=L(I,J) : A(G12) =VERSTAB(I , J) :A(G13)=P 

TTRVSF(I,J) :A(G14)=PITRFI(I,J) : G9=G9+1: G10=G10+1:G11=G11+1 

:G12=G12+l:G13=G13+l:G14=G14+l:NEXT  J, I 

380  G15=G14+1:G16=G15+1+2*LL:G17=G16+1+2*LL:G18= 

G17+1+2*LL:G19=G18+1+2*LL:G2  0=G19+1+2*LL:G21=G2 0+1+2 *LL 

390  FOR  1=1  TO  2:F0R  J=l  TO  LL: A (G15) =AL90 (I , J) : A(G16) = 

AL270(I,J) :A(G17)=M90(I,J) : A(G18) =MCRIT (I , J) : A(G19) =PS (I , J 

) :A(G20)=PM(I,J) :A(G21)=PTT(I,J) :G15=G15+1 : G16=G16+1 : G17=G 

17+1 : G18=G18+1:G19=G19+1:G2  0=G2 0+1 :G21=G2 1+1: NEXT  J, I 

4  00  G22=G21+1:G2  3=G2  2+1+ENG:G2  4=G2  3+1+ENG:G2  5=G2  4+1+ENG: 
G2  6=G2  5+1+ENG:G2  7=G2  6+1+ENG:G2  8=G2  7+1+ENG:G2  9=G28+1+ENG:G3 
0=G2  9+1+ENG:G31=G3  0+1+ENG:G3  2=G31+1+ENG:G3  3=G3  2+1+ENG:G3  4= 
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***  SECTION  8.1  *** 


G3  3+H-ENG:G35=G3  4+1+ENG:G3  6=G35+1+ENG:G37=G3  6+1+ENG:G3  8=G3 
7+1+ENG 

410  G3  9=G3  8+1+ENG:G4  0=G3  9+1+ENG:G41=G40+1+ENG 

420  FOR  1=1  TO 

ENG:A(G22)=DW(I) : A(G23) =SHP (I) : A(G24) =SFC (I) : 

A(G25)=IC(I) :A(G26)=OC(I) : A (G27) =PMA(I) : A (G28) =MTBMA (I) :A( 

G29)=MDT(I) :A(G30)=MTBF(I) : A (G31) =MTBR (I) : A (G32 ) =RC (I) :A(G 

33)=SV(I) :A(G34)=AVAIL(I) : A(G35) =RELY (I) : A (G36) =MAINT (I) 

430  A(G37)=LC(I) : A (G38 ) =EWT (I) : A(G39) =Y0 (I) : A(G40) =YM(I) : 

A(G41)=NRPL(I) :G2  2=G2  2+1:G2  3=G2  3+1:G2  4=G2  4+1:G2  5=G2  5+1:G2  6 

=G2  6+1:G27=G27+1:G2  8=G2  8+1:G2  9=G29+1:G3  0=G3  0+1:G31=G31+1:G 

32=G3  2+1:G3  3=G3  3+1:G3  4=G3  4+1:G3  5=G35+1:G3  6=G3  6+1 

44  0  G37=G3 7+1 : G3 8=G3 8+1 : G3  9=G3 9+1 :G4  0=G4 0+1 :G41=G4 1+1: NEXT 

I 

450  LL(6)=230+(47*LL)+(50*ENG) :LL=LL-1 

4  60  Z=8:0PEN  "B:DATA1"  FOR  OUTPUT  AS  #1: PRINT  #1,  Z : FOR 

1=1  TO  10:PRINT  #1,  LL(I) :NEXT  I:CLOSE  #1 

470  OPEN  "B:DATA8"  FOR  OUTPUT  AS  #1:F0R  1=1  TO  LL(6):PRINT 

#1,  A(I) :NEXT  I:CLOSE  #1:RETURN  120 

480 

490 

500 

510 

520 

530 

540  CLS: LOCATE  3, 30,1: PRINT  "***  SECTION  8.1  ***": LOCATE 

5,24,0: PRINT  "-DESIGN  GROSS  AND  EMPTY  WEIGHT-" : LOCATE 

1,1,0:PRINT  "~W=COMP/":PDGW=(ABS(GW(N)-NGW2)/NGW2) *100:  . 

EW1=GW(N) - (PEOPLE*250) -FUEL-UL: EW2=NGW2- (PEOPLE*250) - 

TFUEL-UL: PDEW= (ABS (EW1-EW2 ) /EW2 ) *100 

550  G1=GW(N) :GW(N)=NGW2:VF1=0:U=1:L=0:VF1=0:GOSUB 

1210:GW(N)=G1:PTF1=PTF1(1)+PTTR1(1) : PRINT  "~C=ALL/" : LOCATE 

7, 10,0: PRINT  "HOVER  POWER  FOR  DESIGN  GROSS  WEIGHT 

=";PTF1:PDGW2=(ABS(GW(N)-NGW2)/NGW2) *100 

560  LOCATE  9, 10,0: PRINT  "PERCENT  DIFFERENCE  IN  DESIGN 

GROSS  WEIGHT  =";PDGW2 

57  0  DIF=SGW-NGW2: LOCATE  11, 10 , 0 : PRINT  "DIFFERENCE  IN 

DESIGN  AND  SPECIFICATION  GROSS  WEIGHT  ="; DIF: LOCATE 

13, 10,0: PRINT  "OPTIONS  ARE :": LC=UL+DIF: LOCATE 

15, 15,0: PRINT  "1.   CHANGE  INTERNAL  LOAD  CAPACITY  TO";LC 

580  FW=TFUEL+DIF: NRANGE=CRUISEV* ( (FW) - ( . 1*BETAH* (SHP (2 ) + 

PHANTOM (1) ) )-(.25*ERSHPR*BETAH) )/(CRUFFR(2) ) : LOCATE 

16, 15,0: PRINT  "2.   CHANGE  FUEL  WEIGHT  TO";FW;"WITH  RANGE 

OF" ;NRANGE: LOCATE  17 , 19 , 0 : PRINT  "FROM  FUEL  WEIGHT 

OF";TFUEL 

59  0  LOCATE  19 , 10 , 0 : PRINT  "PRESENT  GROSS 

WEIGHT" ;NGW2: LOCATE  20 , 10, 1: INPUT; "ENTER  GROSS 

WEIGHT", NGW3: LOCATE  21, 10, 0 : INPUT; "ENTER  USEFUL  LOAD 

",UL: LOCATE  22, 10,0: INPUT; "ENTER  FUEL  WEIGHT  ",T2FUEL 

600  IF  X=6  THEN  GOTO  62  0  ELSE  RETURN  12  0 

610  ' 
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620  ' 

630  '  ***  SECTION  8.2  *** 

640  ' 
650  ' 

660  CLS: LOCATE  5, 31,1: PRINT  "***  SECTION  8.2  ***": LOCATE 
7,29,1: PRINT  "-MAXIMUM  RATE  OF  CLIMB-" : LOCATE  2 3, 1,0: PRINT 
"~W=COMP/" 

670  MCSHP=1000001 :FOR  T=l  TO  21 :U=1: VF1=MEV+T- 
1:MRC=1:G0SUB  1210 :MRC=0 :MCS=PTT1 (1) + . 006*PINF1 (1) : IF 
MCS<MCSHP  THEN  MCSHP=MCS :MCV=VF1 
68  0  NEXT  T 

690  FOR  T=l  TO  20 :U=1 : VF1=MEV-T:MRC=1 :GOSUB 
1210:MRC=0:MCS=PTT1(1)+.006*PINF1(1) :IF  MCS<MCSHP  THEN 
MCSHP=MCS : MCV=VF1 
700  NEXT  T 

710  LS3=( ( ( (ENGINE*SHP(2) ) -10) / (1+INLET) )/(l+EAPS) )/ 
(1+EEDS) 

720  IF  ENGINE=1  THEN  LS4=LS3/1 . 03 : GOTO  730  ELSE  IF 
ENGINE=2  THEN  LS4= (LS3/1 . 1) /I . 03 : GOTO  730  ELSE  IF  ENGINE=3 
THEN  LS4=( (LS3/1.15)/1.03)/1.01333333#:GOTO  730 
73  0  FOR  1=1  TO  3: SOUND  7  00, 9: SOUND  500, 9: NEXT  I : PRINT 
"~C=LAST/": LOCATE  10 , 25 , 0 : PRINT  "MAXIMUM  RATE  OF  CLIMB 
AIRSPEED  =" ;MCV: WERT=66000 1  * (LS4-MCSHP) /NGW3 
740  LOCATE  14 , 35 , 0 : PRINT  "  ": LOCATE 

12,25,0:PRINT  "MAXIMUM  RATE  OF  CLIMB  =" ; WERT; "fpm" : GOSUB 
1850: IF  X=6  THEN  GOTO  760  ELSE  RETURN  120 
750  ' 
760  ' 

770  '  ***  SECTION  8.3  *** 

780  ' 

790  '  _ 

800  CLS: LOCATE  5, 30,0: PRINT  "***  SECTION  8.3  ***": LOCATE 
7,25,0: PRINT  "-MAXIMUM  HOVER  ALTITUDE,  IGE-": LOCATE 
2  3, 1,0: PRINT 

"~W=COMP/ " : VF1=0 : G1=GW (N)  : GW (N) =NGW3 : AL ( 1 ) =712  0 : PA=1 : PR (U) 
=0:U=0 

810  LS=(( ( ( (ENGINE*SHP(2) ) -10) /( 1+INLET) )/(l+EAPS) )/ 
(1+EEDS) ) 

820  IF  ENGINE=1  THEN  PTASL=LS/1 . 03 : GOTO  830  ELSE  IF 
ENGINE=2  THEN  PTASL= (LS/1 . 1) /I . 03 : GOTO  830  ELSE  IF 
ENGINE=3  THEN  PTASL= ( (LS/1 . 15) /I . 03 ) /I . 01333333# : GOTO  830 
830  Kl=6.87535E-06:D=2*R:H=RH+5 

840  IF  (PA-PR(U) )>.01  THEN  U=U+1:G0T0  870  ELSE  AL(U)=AL(U- 
1) :AL1=1:G0T0  870 

850  IF  (PA-PR(U) )>.01  THEN  U=U+1:G0T0  870  ELSE  AL(U)=AL(U- 
1) :AL1=2:G0T0  870 

860  IF  (PA-PR(U) )>.01  THEN  U=U+1: GOTO  870  ELSE  GOTO  890 
870  THETA=1-(K1*AL(U) ) :DELTA=(1- 
(K1*AL(U)  ) )^5.2  561:RHO(U)=RHO*( (1-K1*AL(U) ) ^4.2  561) : GOSUB 
1210:PA=PTASL*DELTA*SQR(THETA) : PINIA= ( (-.1276* ( (H/D) ^4) + 


142 


SOUND  500, 9: NEXT 


.708*( (H/D)^3)-1.4569*( (H/D) ^2 ) +1 . 3  432* (H/D)  +  . 5147)  * 

PINFl (U) ) : PR (U) =PINIA+P0F1 (U) +PTTR1 (U) 

880  IF  AL1=1  THEN  AL(U+1) =AL(U) +100 : GOTO  850  ELSE  IF  AL1=2 

THEN  AL(U+1)=AL(U)+10:GOTO  860  ELSE 

AL(U+1)=AL(U)+1000:GOTO  840 

890  MHA=AL(U) :FOR  1=1  TO  3:S0UND  700,9; 

I:  PRINT  "--C=ALL/":  LOCATE  10  ,  25  ,  0  :  PRINT 

ALTITUDE  =";MHA:G0SUB  18  50: IF  X=6  THEN 

RETURN  12  0 

900 

910 

920 

930 

940 

950 


"MAXIMUM 
GOTO  94  0 


HOVER 
ELSE 


***  SECTION  8.4  *** 


4  ***": LOCATE 
1,0: PRINT 


CLS: LOCATE  3, 3 0,0: PRINT  "***  SECTION  8 
5, 31,0: PRINT  "-SERVICE  CEILING-" : LOCATE  23 
"~W=COMP/ " : U=0 : PA=1 : PR ( 0 ) =0 

960  LS=( ( (( (ENGINE*SHP(2) ) -10) / ( 1+INLET) )/(l+EAPS) ) 
/(1+EEDS) ) 

970  IF  ENGINE=1  THEN  PTASL=LS/1 . 03 : GOTO  980  ELSE  IF 
ENGINE=2  THEN  PTASL= (LS/1 . 1) /I . 03 : GOTO  980  ELSE  IF 
ENGINE=3  THEN  PTASL= ( (LS/1 . 15) /I . 03 ) /I . 01333333# : GOTO  980 
98  0  Kl=6. 8753 5E-06: ALA (1) =7 12 0:VF1=MCV:TV=NGW3* (100/60) 
/550:AL1=0 

990  IF  (PA-PR(U) )>.01  THEN  U=U+1:G0T0  1020  ELSE 
ALA(U)=ALA(U-1) :AL1=1:G0T0  1020 

1000  IF  (PA-PR (U) )>. 01  THEN  U=U+1:G0T0  1020  ELSE 
ALA (U) =ALA (U-1 ) :AL1=2: GOTO  1020 

1010  IF  (PA-PR (U) )>. 01  THEN  U=U+1:G0T0  1020  ELSE  GOTO  1040 
1020  THETA=1-(K1*ALA(U) ) : DELTA= (1- (K1*ALA(U) ) )^ 
5.2561:RHO(U)=RHO*( (1-K1*ALA(U) ) ^4. 2  561) :MRC=1:G0SUB 
1210:MRC=0:PPF2=.006*PINF1(U) : PA=PTASL*DELTA*SQR(THETA) : PR 
(U) =PTT1 (U) +PPF2+TV 

1030  IF  AL1=1  THEN  ALA (U+1) =ALA(U) +100 : GOTO  1000  ELSE  IF 
AL1=2  THEN  ALA(U+1) =ALA (U) +10 : GOTO  1010  ELSE 
ALA (U+1) =ALA(U) +1000: GOTO  990 
1040 

DA=R^2*PI:VI=SQR(GW(N)/(2*RHO(l)*DA) ) : CT=GW(N) / (RHO (1) *DA* 
(OMEGA*R) ^2 ) : TIPL0SS=1- (SQR ( 2*CT) /B) : PI=GW (N) ^1 . 5/ 
(SQR(2*RH0(1) *DA) *TIPLOSS) 

1050  VEFPA=(.012*PI)/(RHO(1)*VI^3) :SC=ALA(U) :FOR  1=1  TO 
3: SOUND  7  00, 9: SOUND  500, 9: NEXT  I : PRINT  " ~C= ALL/ ": LOCATE 


10,28,0 


THEN 
1060 
1070 
1080 
1090 
1100 
1110 
7,32, 


PRINT  "SERVICE  CEILING  =" 
GOTO  1100  ELSE  RETURN  12  0 


SC:GOSUB  1850:IF  X=6 


***  SECTION  8.5  *** 


CLS: LOCATE  5, 3  0,0: PRINT  "*** 
0: PRINT  "-FUSELAGE  SIZING-" 


SECTION  8.5  ***": LOCATE 
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112  0  IF  M=l  THEN  BW=7 . 5 : BH=4 . 5  ELSE  IF  M=2  THEN 
BW=8:BH=4.5  ELSE  IF  M=3  THEN  BW=8 : BH=5 . 4  ELSE  IF  M=4  THEN 
BW=8:BH=8.5  ELSE  IF  M=5  THEN  BW=8 . 5 : BH=8 . 5  ELSE  IF  M=6 
THEN  BW=8. 899999 :BH=8. 899999 

1130  IF  UL<5000  THEN  FL=1.5*TL  ELSE  FL=1.34*TL 
1140  LOCATE  10, 3  0,0: PRINT  "BODY  WIDTH  =";BW: LOCATE 
12, 3 0,0: PRINT  "BODY  HEIGHT  =";BH: LOCATE  14 , 30 , 0 : PRINT 
"FUSELAGE  LENGTH  =";FL:GOSUB  1850: RETURN  12  0 
1150  • 
1160  ' 

117  0  •  ***  POWER  CALCULATIONS  *** 

1180  ' 
1190  ' 
1200  ' 

1210  RHO(l)=RHO:DA=PI*R^2:VT=OMEGA*R:TRA=PI*TR^2: 
VH2=GW(N)/(2*RHO(U) *DA) :VF=VF1*1 . 687778 :MU3=VF/VT: CT=GW (N) 
/(RHO(U) *DA*VT^2) : TIPL0SS=1- (SQR (2*CT) /B) 

1220  PINF1(U)=(GW(N) *SQR( ( (VF^2 ) / (-VH2*2 ) )+SQR( ( (VF^2)/ 
(2*VH2) )^2+l) ) *SQR(VH2) ) / (55  0*TIPLOSS) : POFl (U) = (SIGMA*CDO* 
RHO(U) *DA*VT^3*(1+4.3*(MU3^2) ) ) /44  00 : PPFl (U) = (RHO (U) *(VF^3 
) *EFPA) /llOO : PTFl (U) =PINF1 (U) +P0F1 (U) +PPF1 (U) 
1230  TTR=( ( (PT*550)/OMEGA)/TL) : CTTR=TTR/ (PI* (TR^4) * 
RHO(U) * (OMEGAT^l.5) ) :TB=l-( (SQR(2*CTTR) /BT) ) :PITR1(U)= 
( ( (TTR^1.5)/SQR(2*PI*(TR^2) *RHO(U) ) ) /TB) /550 : SIGMAT= (BT*TR 
C)/(PI*TR) :P0TR1(U)=(SIGMAT*CD0*RH0(U) *PI*(TR^5) *0MEGAT^3) 
/4400 : PTTRl (U) =PITR1 (U) +P0TR1 (U) 
12  4  0  IF  MRC=1  THEN  GOTO  12  5  0  ELSE  RETURN 

1250  VF=1.687778*VFl:MU2=VF/(OMEGA*R) :VITR=SQR( (-(VF^2)/2) 
+SQR( ( ( (VF^2)/2) ^2)+( (PTFl(U) *550)^2)/( (2*TRA*RH0 (U) *TL*OM 
EGA) ^2) ) ) :PITRF2 (U)=( ( (PTFl(U) *550) / (TL*OMEGA) ) *VITR)/(550 
*TB) 

12  60  P0TRF2 (U) =SIGMAT*CDO*RHO (U) *TRA* ( (OMEGAT*TR) ^3)* 
(1+(4.3*(MU2^2) ) )/4400:PTTRFl(U)=PITRF2 (U)+P0TRF2 (U) 
1280  ' 
1290  ' 

1300  MM=M:BB=B:EE=BLTW:THT=EE*PI/180:W=ABS (EE) 
1310  M(l)=1116.89 
1320  CT=GW(N)/(RHO(U) *DA*VT^2) 
1330  B=1-(SQR(2*CT)/BB) 
1340 

Tl=.5*( (B^2)+.5*(MU3^2) ) :T2=( (B^3 ) /3 ) + ( . 5* (MU3^2) *B) :T3=( ( 
B^2)/4) *(B^2+MU3^2) :T4= ( . 5*KU3) * ( (B^2)+( (MU3^2)/4) ) :B1=(B^ 
2-.5*(MU3^2) ) :A11=4*( (MU3* (B^2) /2) - (MU3^3) /8) / ( (B^2) *B1) : 
A12=(8*MU3*B)/(3*B1) : A13= (2*MU3* (B^2 ) ) /Bl : A14= (B^2+ (3* (MU3 
-2))/2)/B 

1350  A14=(B^2+(3*MU3^2)/2)/Bl:PPFl(U)=RHO(U) *VF^3*EFPA/2 : 
IF  VFK40  THEN  LAM=SQR  (CT/2  )  :  PPFl  (U)  =PPF1  (U) /550  ELSE 
LAM=-(( (PPFl(U) )/GW(N) ) + (GW (N) / (2*RH0 (U) *DA*VF) ) )/VT: 
PPFl (U) =PPF1 (U) /550 
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1370  ' 

1380  ' 

1390  • 

1400  ' 

1410  • 

1420  ' 

1430  ' 

1440  F 

13  6  0  F(1)=(2*CT/(SIGMA*CLALPHA) ) -LAM*T1-THT*T3 : F (2 ) =- 
LAM*A1 1-THT*A13 : K ( 1 , 1 ) =T2 : K ( 1 , 2 ) =T4 : K ( 2 , 1 ) =A12 : K ( 2 , 2 ) = 
A14:H=2 

SIMULTANEOUS  EQUATION  SOLVER  USING  MATRIX 
DECOMPOSTION  WITH  FORWARD  SUBSTITUTION  IN  LOWER 
TRIANGULAR  SYSTEM  AND  BACK-SUBSTITUTION  IN  UPPER 
TRIANGULAR  SYSTEM 


FOR  D=2  TO  H:FOR  1=1  TO  D-1:F0R  M=l  TO  I-1:K(D,I)= 
K(D,I)-(K(D,M)*K(M,I) ) :K(I,D)=K(I,D)-(K(I,M)*K(M,D) ) :NEXT 
M:K(D,I)=K(D,I)/K(I,I) :NEXT  I : FOR  J=l  TO  D-1 : K(D, D) =K(D, D) 
-(K(D,J)*K(J,D) ) :NEXT  J,D 

1450  FOR  1=2  TO  H:E=0:FOR  J=l  TO  I-l: G=K(I , J) *F (J) : 
E=E+G:NEXT  J:F(I)=F(I)-E:NEXT  I 

1460  F(H)=F(H)/K(H,H) :FOR  I=H-1  TO  1  STEP  -1:P=0:FOR  J=I+1 
TO  H:Q=F(J)*K(I,J) :P=P+Q:NEXT  J: F (I) = (F (I) -P) /K(I , I) :NEXT 
I:TH0=F(1) :TH2=F(2) :FOR  1=1  TO  2:F(I)=0:FOR  J=l  TO 
2:K(I,J)=0:NEXT  J, I 

1470  AL901(U)=(TH0+TH2+THT+(LAM/(1+MU3) ) ) *180/PI : AL2701 (U) 
=(TH0-TH2+THT+(LAM/(1+MU3) ) ) *180/PI 
1480  ' 

1490  ACK=(AL2  7  01(U)-AMAX) :IF  ACK<0  THEN  PS1(U)=0  ELSE 
PSl (U) = (ACK/4 ) *P0F1 (U) 
1500  ' 
1510  ' 

1520  MTIP=VT/M(1) :MU3=VF/VT:M9  01 (U) =MTIP* (1+MU3 ) : IF 
CAM$="N"  OR  CAM$="n"  THEN  MCRITl (U) =CM- 
(2.3*ABS(AL901(U) ) *PI/180)  ELSE  MCRITl (U) =CM- 
(2.3*AL9  01(U) *PI/18  0) 

1530  MD=M901 (U) -MCRITl (U)-. 06: IF  MD<0  THEN  PM1(U)=0  ELSE 
PM1(U)=( ( ( . 012*MD)+. 1* (MD^3) ) *SIGMA*RHO (U) *DA*VT^3 ) /550 
1540  • 
1550  ' 

1560  PTTl (U) =PTF1 (U) +PS1 (U) +PM1 (U) +PTTRF1 (U) 
157  0  M=MM:B=BB: RETURN 
1580  ' 
1590  ' 

1600  '  ***  PRINT  DATA  *** 

1610  ' 
1620  • 

1630  IF  AT=1  THEN  LPRINT  TAB(25)  "TABLE  OF  CHAPTER  EIGHT 
RESULTS"  ELSE  CLS : LOCATE  2, 25,0: PRINT  "TABLE  OF  CHAPTER 
EIGHT  RESULTS" 

1640  LOCATE  4, 12,0: PRINT  "HOVER  POWER  FOR  DESIGN  GROSS 
WEIGHT"; TAB (57)  PTFl 

1650  PRINT  TAB (12)  "PERCENT  DIFFERENCE  IN  DESIGN  GROSS 
WEIGHT"; TAB (57)  PDGW2 

1660  PRINT  TAB (12)  "DIFFERENCE  IN  DESIGN  AND  SPEC.  GROSS 
WEIGHT"; TAB (57)  DIF 
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1670  PRINT  TAB(12)  "NEW  GROSS  WEIGHT" ;TAB ( 57 ) 
168  0  PRINT  TAB (12)  "MAXIMUM  RATE  OF  CLIMB 
AIRSPEED" 7 TAB (57)  MCV 


NGW3 


PRINT 
PRINT 
PRINT 
PRINT 


TAB (12) 
TAB (12) 
TAB (12) 
TAB (12) 


IF  AT=1  THEN  LCOPYrLPRINT  CHR$ 
GOSUB  1850: RETURN  12  0 


1690  PRINT  TAB (12) 

17  00  PRINT  TAB (12) 

AVAILABLE " ; TAB (57) 

1710  PRINT  TAB (12) 

MHA 

1720 

1730 

1740 

1750 

1760 

ELSE 

1770 

1780 

1790 

1800 

1810 

1820 

1850 

1830 

1840 

1850 

1860 

1870 

1880 


"MAXIMUM 
"MAXIMUM 
LS4 
"MAXIMUM 


RATE  OF  CLIMB";  TAB  (57)  WERT 
RATE  OF  CLIMB  POWER 

HOVER  ALTITUDE,  IGE";TAB(57) 


"SERVICE  CEILING"; TAB (57)  SC 
"BODY  WIDTH"; TAB (57)  BW 
"BODY  HEIGHT"; TAB (57)  BH 
"FUSELAGE  LENGTH" ; TAB (57 )  FL 


(12) :AT=0:GOTO  12  0 


***  HARD  COPY  OF  DATA  *** 


I 

CLS 

CLS 
I 


LOCATE  2  3, 1,0: PRINT  " ~W= PRINTER/ ": GOSUB 
AT=1:G0SUB  163  0 :AT=0: RETURN  120 


LOCATE 

A$=INKEY$:IF 
RETURN 


25, 27,0: PRINT 


press  any  key  to  continue" 
A$=""  THEN  1870 
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K.   CHAPTER  NINE 

********************  CHAPTER  NINE  ******************** 

FINAL  PERFORMANCE  CHECKS 
****************************************************** 

***   CHAPTER  NINE  MAIN  PROGRAM   *** 


***  LIST  FINAL  SUMMARY  *** 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100  CLS: PRINT  "~C=ALL/" : PRINT  "~L=CH9/" 

110  COLOR  1,1,1: CLS: LOCATE  23, 1,0: PRINT 

"~W=C9MAIN/" : INPUT ; " " , X 

12  0  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  160  ELSE  IF  X=2  THEN 
GOSUB  62  0  ELSE 

13  0  IF  X=3  THEN  CLS : LOCATE  25 , 27 , 0 : PRINT  " ~W= LOAD/ ": CHAIN 
"HDl", ,ALL 

140 

150 

160 

170 

180 

190  CLS: LOCATE  10 , 20 , 0 : INPUT  "ENTER  SPECIFICATION  SERVICE 

CEILING", -SSC: LOCATE  12 , 2  0, 0 : INPUT  "ENTER  SPECIFICATION 

HOVER  CEILING" ;SHC: LOCATE  14 , 20 , 0 : INPUT  "ENTER 

SPECIFICATION  ROTOR  RADIUS ";SR 

2  00  LOCATE  16 , 20 , 0 : INPUT  "ENTER  SPECIFICATION  MAXIMUM  RATE 

OF  CLIMB" ;SMRC: LOCATE  18 , 20 , 0 : INPUT  "ENTER  SPECIFICATION 

FUSELAGE  LENGTH" ;SFL: LOCATE  20 , 20 , 0 : INPUT  "ENTER  ENGINE 

TYPE  (ie.  T58-GE-10) ";TYPE$ 

210  LOCATE  23, 27,0: INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="Y" 

THEN  GOTO  190  ELSE  IF  A$="y"  GOTO  190  ELSE  IF  A$="N"  GOTO 

230  ELSE  IF  A$="n"  GOTO  230  ELSE 

22  0  LOCATE  25 , 27 , 0 : PRINT  "you  must  enter  (y/n)  try 

again": GOTO  210 

230  LLL=LL+1:F0R  1=1  TO  LLL:IF  PS(2,I)>0  THEN  II=I  ELSE 

NEXT  I 

240  EWT=NGW-(PEOPLE*250)-UL-FUEL:GAS=T2FUEL:IF  AX=1  THEN 

GOTO  660 

250  CLS: LOCATE  2, 3 3,0: PRINT  "FINAL  SUMMARY" : LOCATE 

4, 3 2,0: PRINT  "*  PERFORMANCE  *": LOCATE  6, 4 3,0: PRINT 

"SPECIFICATION  DESIGN" 

260  PRINT  "CREW:";TAB(46)  PEOPLE; TAB (67)  PEOPLE 

270  PRINT  "INTERNAL  LOAD  (lbs) : " ;TAB (46)  UL;TAB(67)  UL 

280  PRINT  "SERVICE  CEILING  (ft) : " ;TAB (46)  SSC;TAB(67)  SC 

290  PRINT  "HOVER  CEILING  ( f t) : " ;TAB (46)  SHC;TAB(67)  MHA 

300  PRINT  "VELOCITY  (kts)  CRUISE :" ;TAB (46)  CRUISEV;TAB (67) 

CRUISEV 

310  PRINT  TAB (16)  "MAXIMUM: " ;TAB (46)  MAXFVEL;TAB (67) 

MAXFVEL 
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32  0  PRINT  TAB (16)  "MAX  ENDURANCE :"; TAB ( 67 )  MEV 
3  30  PRINT  TAB (16)  "MAX  RANGE: " ;TAB (67)  MRV 
340  PRINT  TAB (16)  "BLADE  STALL  ON-SET: " ;TAB ( 67)  0(11) 
350  PRINT  "MAX  RATE  OF  CLIMB  (FT/MIN) : " ;TAB (46) 
SMRC;TAB(67)  WERT 

3  60  PRINT  "ENGINE  -        NUMBER: " ;TAB ( 67 )  ENGINE 
PRINT  TAB (16)  "TYPE : " ;TAB (67)  TYPE$ 

PRINT  TAB(16)  "SHP  (ssl)  MILITARY: " ;TAB (67)  SHP(l) 
IF  AX=1  THEN  LOCATE  21 , 34 , 0 : PRINT  "*  GEOMETRY  *":GOTO 
ELSE  GOSUB  1010 : CLS : LOCATE  2, 34,0: PRINT  "*  GEOMETRY 


370 

380 

390 

400 

*": LOCATE 

4  00  PRINT 

NGW3 

410  PRINT 
PRINT 
PRINT 


4,43,0: PRINT 
"WEIGHT  (lbs) 


"SPECIFICATION 

MAX  GROSS: ";TAB (46) 


DESIGN" 
SGW;TAB(67) 


";TAB(67)  EWT 
(lbs) :";TAB(67)  GAS 
CHORD  (ft) :";TAB(67)  C 
"RADIUS  (ft) :";TAB(46)  SR;TAB(67)  R 
"NUMBER  OF  BLADES :" ;TAB ( 67)  B 
"DRAG  COEFFICIENT: ";TAB( 67)  CDO 
"ROTATIONAL  VEL  (rad/sec) : " ;TAB (67) 

"SOLIDITY: ";TAB( 67)  SIGMA 
PRINT  "TAIL  ROTOR  -    CHORD  ( f t) : " 7TAB ( 67 )  TRC 
PRINT  TAB (16)  "RADIUS  (f t) : " ;TAB ( 67 )  TR 

"NUMBER  OF  BLADES :" ;TAB (67)  BT 
"DRAG  COEFFICIENT: ";TAB(67)  CDO 


TAB (16)  "EMPTY 

42  0  PRINT  "FUEL  CAPACITY 

43  0  PRINT  "MAIN  ROTOR  - 

44  0  PRINT  TAB (16) 
450  PRINT  TAB (16) 
4  60  PRINT  TAB (16) 
47  0  PRINT  TAB (16) 
OMEGA 

480  PRINT  TAB (16) 
490 
500 
510 
520 
530 

OMEGAT 
54  0  PRINT  TAB (16) 

TAB (16) 


PRINT  TAB (16) 
PRINT  TAB (16) 
PRINT  TAB (16) 


"ROTATIONAL  VEL  (rad/sec) :" ;TAB(67) 


550 

560 

570 

580 

590 

GOSUB 

600 

610 

620 

630 

640 

650 

660 


PRINT 
PRINT 
PRINT 
PRINT 


"SOLIDITY: ";TAB(67) 
"VERTICAL  TAIL  AREA 


SIGMAT 

(ft2) :";TAB(67) 
"FUSELAGE  LENGTH  ( f t) : " ;TAB (46)  SFL;TAB(67) 
"EFPA  (ft2)  -    FORWARD: ";TAB( 67)  EFPA 
TAB (16)  "VERTICAL:"; TAB (67)  VEFPA 
IF  AX=1  THEN  LCOPY:LPRINT  CHR$  (12):G0T0  110  ELSE 
1010:GOTO  110 


S 

FL 


***  PRINT  RESULTS  *** 


AX=1: GOSUB  160 

CLS: LOCATE  10 , 25 , 0 : PRINT  "~W=PRINTER/" : GOSUB 
1010: LOCATE  25 , 27 , 0 : PRINT  " 

67  0  AX=0:LPRINT  "":LPRINT  "":LPRINT  TAB (33)  "FINAL 
SUMMARY" :LPRINT  "":LPRINT  TAB (32)  "*  PERFORMANCE  *" 
"":LPRINT  "":LPRINT  TAB (43)  "SPECIFICATION 
DESIGN" 

68  0  LPRINT 

69  0  LPRINT 
7  00  LPRINT 
710  LPRINT 


LPRINT 


"CREW:";TAB(46)  PEOPLE ; TAB (67)  PEOPLE 
"INTERNAL  LOAD  (lbs) : " ;TAB (46)  UL;TAB(67)  UL 
"SERVICE  CEILING  ( f t) : " ;TAB (46)  SSC;TAB(67)  SC 
"HOVER  CEILING  (f t) : " ;TAB (46)  SHC;TAB(67)  MHA 
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720  LPRINT  "VELOCITY  (kts)  CRUISE :" ;TAB (46) 

CRUISEV;TAB(67)  CRUISEV 

730  LPRINT  TAB(16)  "MAXIMUM: " ;TAB (4  6)  MAXFVEL;TAB (67) 

MAXFVEL 

74  0  LPRINT  TAB (16)  "MAX  ENDURANCE: " ;TAB (67)  MEV 

750  LPRINT  TAB (16)  "MAX  RANGE: " ;TAB (67)  MRV 

760  LPRINT  TAB (16)  "BLADE  STALL  ON-SET: " ;TAB( 67)  0(11) 

770  LPRINT  "MAX  RATE  OF  CLIMB  (FT/MIN) : " ;TAB(46) 

SMRC;TAB(67)  WERT 

780  LPRINT  "ENGINE  -        NUMBER: " ;TAB (67)  ENGINE 
LPRINT  TAB (16)  "TYPE: "; TAB (67)  TYPE$ 

LPRINT  TAB (16)  "SHP  (ssl)  MILITARY: " ;TAB (67)  SHP(l) 
LPRINT  "": LPRINT  TAB (33)  "*  GEOMETRY  *": LPRINT  "" 


790 
800 
810 

82  0  LPRINT  "WEIGHT  (lbs)    MAX  GROSS :" ;TAB (46)  SGW;TAB(67) 
NGW3 

83  0  LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 

LPRINT  TAB (16) 
LPRINT  TAB (16) 
LPRINT  TAB (16)  "ROTATIONAL  VEL  (rad/sec) : " ;TAB (67) 

OMEGAT 
950  LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT  TAB (16)  "VERTICAL: "; TAB (67) 
LPRINT  CHR$  (12): RETURN  110 


840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


960 
970 
980 
990 
1000 


TAB (16)  "EMPTY: ";TAB( 67)  EWT 
"FUEL  CAPACITY  (lbs) :" /TAB (67)  GAS 
"MAIN  ROTOR  -    CHORD  ( f t) : " ;TAB ( 67)  C 
TAB(16)  "RADIUS  ( f t) : " ;TAB (46)  SR;TAB(67) 
TAB (16)  "NUMBER  OF  BLADES :"; TAB ( 67 )  B 
TAB (16)  "DRAG  COEFFICIENT: " ;TAB (67) 
TAB (16)  "SOLIDITY: ";TAB( 67)  SIGMA 
"TAIL  ROTOR  -    CHORD  ( f t) : " ;TAB (67) 
TAB(16)  "RADIUS  (ft) : " ;TAB (67)  TR 

"NUMBER  OF  BLADES :" ;TAB (67) 
"DRAG  COEFFICIENT: ";TAB( 67) 


CDO 

TRC 

BT 
CDO 


TAB (16) 
TAB (16) 


"SOLIDITY : " ; TAB ( 67 ) 
"VERTICAL  TAIL  AREA 


SIGMAT 

(ft2) :";TAB(67) 


"FUSELAGE  LENGTH  ( f t) : " ;TAB (46)  SFL;TAB(67) 
"EFPA  (ft2)  -    FORWARD: ";TAB( 67)  EFPA 

VEFPA 


S 

FL 


1010  LOCATE  25, 27, 0: PRINT  "press  any  key  to  continue" 
1020  A$=INKEY$:IF  A$=""  THEN  1020 
103  0  RETURN 
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L.   CHAPTER  TEN 

*******************  CHAPTER  TEN  ********************** 

***  COST  ESTIMATION  *** 


***  CHAPTER  TEN  MAIN  PROGRAM  *** 


10 

20 

30 

40 

50 

60 

70 

80 

90  CLS: PRINT  "~C=ALL/" : PRINT  "~L=CH10/" 

100  COLOR  1,1,1:AZ=0: CLS: LOCATE  2  3, 1,0: PRINT 

" ~W=C10MAIN/ " : INPUT ; " " , X 

110  COLOR  15, 1,1: IF  X=l  THEN  GOSUB  150  ELSE  IF  X=2  THEN 

GOSUB  340  ELSE 

12  0  IF  X=3  THEN  CLS : LOCATE  2  3, 1,0: PRINT  " ~W= LOAD/ ": CHAIN 

"HDl", ,ALL 

130  ' 

140  • 

150  CLS: LOCATE  10 , 20 , 1 : INPUT  "ENTER  PRODUCTION 

QUANTITY" ;Q: LOCATE  12 , 20 , 0 : INPUT  "ENTER  INFLATION 

RATE";IFR 

160  LOCATE  22, 32,1: INPUT  "ANY  CHANGES  (Y/N)";A$:IF  A$="y" 

THEN  GOTO  150  ELSE  IF  A$="Y"  GOTO  150  ELSE  IF  A$="n"  GOTO 

420  ELSE  IF  A$="N"  GOTO  420  ELSE 

170  LOCATE  23,27,1: PRINT  "you  must  enter  (y/n)  try 

again": LOCATE  22 , 50, 1: PRINT  "  ":GOTO  160 

180 

190 

200 

210 

220 

230  CLS: LOCATE  2, 3  0,1: PRINT  "COST  ESTIMATION  TABLE" : LOCATE 

4, 42,1: PRINT  "  COST": LOCATE  6, 1,1: PRINT  "1. 

ROTOR:"; TAB (55)  C(l) 

240  PRINT  "2.   TAIL   ROTOR: " ;TAB (55)  C2A(1):PRINT  " 

STRUCTURE: "/TAB (55)  C2B(1):PRINT  "3.   BODY: " ;TAB (55)  C(3) 

250  PRINT  "4.   LANDING  GEAR: " ;TAB (55)  C(4):PRINT  "5. 

NACELLE:", -TAB (55)  C(5) 

260  PRINT  "6.   PROPULSION  ENGINE :" ;TAB (55)  C6A(1):PRINT 

TAB(16)  "DRIVE:", -TAB (55)  C6B(1) : PRINT  TAB (16)  "FUEL 

TANKS: ";TAB (55)  C6C(1) 

270  PRINT  "7.   FLIGHT  CONTROLS :" ;TAB (55)  C (7): PRINT  "8. 

AUXILIARY  POWER:"; TAB (55)  C (8): PRINT  "9. 

INSTRUMENTS: ";TAB( 55)  C(9) 

280  PRINT  "10.  HYDRAULICS :";TAB (55)  C(10):PRINT  "11. 

ELECTRICAL: ";TAB( 55)  C(11):PRINT  "12.  AVIONICS :" ;TAB (55) 

C( 12): PRINT  "13.  FURNISHINGS:" 

290  LOCATE  21 , 55 , 1 : PRINT  C(13):PRINT  "14.  AIR  & 

ICE:";TAB(55)  C( 14): PRINT  "15.  LOAD  &  HANDLING: " ;TAB (55) 

C(15) 


150 


***  PRINT  COST  ESTIMATION  TABLE  *** 


***   COST  ESTIMATION  CALCULATION   *** 


300  CE(1)=0:FOR  1=1  TO  15 : CE (I+l) =C (I) +CE (I) :NEXT  I : LOCATE 

24,30,0:PRINT  "TOTAL  COST  =";CE(16) 

310  IF  AZ=1  THEN  LCOPY:LPRINT  CHR$  (12):G0T0  100  ELSE 

GOSUB  350: GOTO  100 

320  ' 

330  ' 

34  0  CLS: LOCATE  2  3, 1,0: PRINT  "~W=PRINTER/" : GOSUB 

350:AZ=1:GOSUB  150 

350  LOCATE  25 , 27 , 0 : PRINT  "press  any  key  to  continue" 

360  ' 

370  A$=INKEY$:IF  A$=""  THEN  370 

380  RETURN 

390  '  ***  COST  ESTIMATING  *** 

400 

410 

420 

430 

440 

450  C(l)  =  (-12938+101*W(1,3)*Q^-.074)*IFR 

460  C2A(1)  =  (102*W2A(3) *Q^-.074) *IFR 

470  C2B(1)  =  (759*(W2B(3)^.848) *Q^-.286) *IFR:C(2)= 

C2A(1)+C2B(1) 

480  C(3)  =  (860*(W(3,3)^.848) *Q^-.286) *IFR 

490  IF  GR=1  THEN  C(4)  =  IFR*C (3) *W(4 , 3) /W(3 , 3 )  ELSE  C(4)  = 

IFR*8  5*W(4,3) *(Q^-.2176) 

500  C(5)  =  IFR*893*(W(5,3) ^.848)*(Q^-.286) 

510  C6A(1)  =  IC(EN) *IFR*ENGINE*1000 

520  C6B(1)  =  (19946  +  (83*W6B(3 ) * (Q^- . 074) ) ) *IFR 

530  C6C(1)  =  IFR*201*W6C(3)*(Q^-8.959999E-02) : 

C(6)=C6A(1)+C6B(1)+C6C(1) 

540  C(7)  =  IFR*156*W(7,3) *(Q^-8.959999E-02) 

550  C(8)  =  IFR*243*W(8,3)*(Q^-8.959999E-02) 

560  C(9)  =  IFR*125*W(9,3)*(Q^-8.959999E-02) 

570  C(10)  =  IFR*91*W(10,3) *(Q^-8.959999E-02) 

580  C(ll)  =  IFR*143*W(11,3) *(Q^-8.959999E-02) 

590  C(12)  =  IFR*(6847+(125*W(12,3)*(Q^-8.959999E-02) ) ) 

600  C(13)  =  IFR*69*W(13,3) *(Q^-8.959999E-02) 

610  C(14)  =  IFR*213*W(14,3) *(Q^-8.959999E-02) 

620  C(15)  =  IFR*C(3)*W(15,3)/W(3,3) 

630  RETURN  220 

640  ' 

650  ' 
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